alarm 10;
$SIG{ALRM} = \&Finish;

sub Finish { print "Timeout reached"; }