# get the epoch seconds for 8:00am the following day
# NOTE if it's after midnight this doesn't work but
# should be trivial to fix
my $now = time();
my ($mday, $mon, $year) = (localtime($now))[3,4,5];
my $then = timelocal(0, 0, 8, $mday + 1, $mon, $year);
my $difference = $then - $now;
sleep($difference);
####
sleep(1) until ((localtime)[2] == 8);
# it's now 8:00am.. do your thing.
##
##
local $_ = "0A72656B636148206C72655020726568746F6E41207473754A";
while(s/..$//) { print chr(hex($&)) }