use Time::HiRes;
$SIG{ALRM} = sub { warn "alarm went off" };
alarm(5);
my $t = Time::HiRes::usleep(10_000_000); # 10 seconds
print "done, t = $t\n";