Tried using Time::Hires;

use Time::HiRes qw (ualarm setitimer);
ualarm(5000);
exit;
[download]

returns "ualarm is not a valid Time::HiRes macro at C:/Perl/lib/Time/HiRes.pm line 27."

Not having much luck here. =(