perl lock-keyboard-for-baby-20080706.pl
perl lock-keyboard-for-baby-20080706.pl -p q
bash -c "if ! kill `ps ax|grep "perl.*lock.*baby"|grep -v grep|awk '{print $1}'`; then perl /cesta/k/lock-keyboard-for-baby-20080706.pl; fi"