perl -le'sleep 1 until localtime =~ / 07:/; sleep 1, print "\a" while 1;'