home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / PERL30X.ZIP / ALARM.PL < prev    next >
Text File  |  1991-01-14  |  276b  |  17 lines
  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";
  17.