[Omaha.pm] $1700 alarm clock

[Jay Hannah <jay@jays.net>]

If you're ever trapped in a random motel room in Australia somewhere  
and realize at 1am that the alarm clock is broken you can use your  
MacBook and Perl... Don't forget to disable your power save features  
before you fall asleep.  :)

j


while (sleep 15) {
   my  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =  
localtime(time);
   print "$hour:$min\n";
   if ($hour == 4 and $min == 30) {
      while (1) {
         `say "wake up you lazy bastards"`;
      }
   }
}