atarist/test/sig

   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 }