use sigtrap qw(handler sig_handler INT TERM QUIT PIPE); use Switch; sub sig_handler { my($sig) = shift; print "Caught signal $sig\n"; switch($sig) { case ["INT","TERM","QUIT"] { print "Exiting"; exit(0); } case "PIPE" { print "Continuing\n"; } } }