os2/eg/alarm.pl

   1 sub handler {
   2   local($sig) = @_;
   3   print "Caught a SIG$sig -- shutting down\n";
   4   exit(0);
   5 }
   6
   7 $SIG{'INT'} = 'handler';
   8 $SIG{'QUIT'} = 'handler';
   9 $SIG{'ALRM'} = 'handler';
  10
  11 print "Starting execution ...\n";
  12 alarm(10);
  13
  14 while ( <> ) {
  15 }
  16 print "Normal exit.\n";