perl -e 'sleep 120; print "\a";'