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