sub my_exit {
    my $from_where = shift;
    if (open my $log, ">>", "/tmp/mailscanner-debug.log") {
        print $log "$$ exited: $from_where\n";
        close $log;
    }
    exit;
}