Too bad, I hate the differences among platforms. Maybe this trick here can help:

sub alarm
my $child_pid = fork();
if ($child_pid) {
   wait;
   print "received alarm\n";
   ...
} else {
   sleep($seconds);
}
[download]