home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / perl-4.036 / atarist / test / sig < prev    next >
Encoding:
Text File  |  1993-02-08  |  191 b   |  13 lines
  1. sub handler {
  2.     local($sig) = @_;
  3.     print "Caught SIG$sig\n";
  4.     exit(0);
  5. }
  6.  
  7. $SIG{'INT'} = 'handler';
  8.  
  9. print "Hit CRTL-C to see if it is trapped\n";
  10. while($_ = <ARGV>) {
  11.     print $_;
  12. }
  13.