Select Code to Download

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