Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Integer signal
sub sig_handler {
    my $signal = shift;
    die "I got signal $signal";
}
$SIG{INT} = \&sig_handler;  
while(<>) {
    print;
}