#!/bin/sh  
perl -e 'select(undef,undef,undef,.1)' && xset dpms force off