perl -le '$SIG{KILL} = sub {print "boom!"}; print $$; sleep;'