Select Code to Download

eval { main () };

...
    # do everything 
    ...
}

eval { main () };
print STDERR "# $0: ", $@
...
}

sub test_sub { die "test_sub dies" }