perl -e '$SIG{ALRM} = sub { die "signal alarm caught!\n" }; kill 14, $0'