$SIG{"INT"} = "interrupt"; while(1) { } sub interrupt { print "You can't kill me!"; $SIG{"INT"} = "interrupt"; } [download]
In reply to Perl Signals by 7cardcha