Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
eval{
  $SIG{ALRM} = sub {die "DING-DING"};
...
}}else{
  print "No error was generated";
}

Select or download this

Uh oh, not an alarm error; here goes...
 The Unsupported function alarm function is unimplemented at 
C:\p.pl line 4.