http://www.perlmonks.org?node_id=532869


in reply to timed window

You can use: 

$SIG{ALRM} = { ... code to execute on time-out ... };
alarm 30; # will wait 30 secs before calling your time-out code
... regular code ...
alarm 0; # set this if ok to neutralize the alarm

[download]

this is only good if the alarms are not nested.

Enjoy,
Mickey

In Section Seekers of Perl Wisdom