alarm 2;
$SIG{ALRM} = \&Finish;
while (1==1){};

sub Finish { die; }