alarm 2;
$SIG{ALRM} = \&Finish;
sleep 30;
sub Finish { print "Timeout reached"; }