perl -e 'use Time::Local;sleep(timelocal((0,45,8,19,8,102))-time);print "\a" while sleep 1'