Help for this page

Select Code to Download


  1. or download this
    alarm 2;
$SIG{ALRM} = \&Finish;
my $a=<>;

sub Finish { print "Timeout reached"; }
  2. or download this
    alarm 2;
$SIG{ALRM} = \&Finish;
while (1==1){};

sub Finish { print "Timeout reached"; }