or download this
[gifford@gifford gifford]$ perl -e'$SIG{KILL}=sub { die "KILL signal c
+aught"; }; sleep(10)' &
[1] 4316
[gifford@gifford gifford]$ kill -9 4316
[gifford@gifford gifford]$
[1]+ Killed perl -e'$SIG{KILL}=sub { die "KILL signa
+l caught"; }; sleep(10)'