#!/usr/bin/perl $SIG{INT}=\&sig_handler; sub sig_handler {
my $signal = shift; die "I got signal $signal";
}
while (<>) {
print; }
