kamipo · February 26, 2009 09:54
diff --git a/signal_test.pl b/signal_test.pl
 #!/usr/bin/perl
 use strict;
 use warnings;

 for my $s (qw/TERM HUP INT/) {
    $SIG{$s} = sub { warn "SIG$s !!\n" and exit };
 }

 chomp, print $_."\n" while <STDIN>;
	#!/usr/bin/perl
	use strict;
	use warnings;

	for my $s (qw/TERM HUP INT/) {
	$SIG{$s} = sub { warn "SIG$s !!\n" and exit };
	}

	chomp, print $_."\n" while <STDIN>;