You can pause a perl script waiting for an alarm with:

use POSIX qw(pause);
$SIG(ALRM) = ...
...
alarm $seconds;
...

pause; #wait for a signal without
       #using CPU time
[download]