$SIG{QUIT}= \&GotSignal;

##</code><code>##

Got a QUIT signal, exiting

##</code><code>##

sub GotSignal {
    my $sig= ucfirst lc shift;
    print "Got a $sig signal, exiting\n";
    exit(0);
}