Select Code to Download

use CGI::Carp qw(fatalsToBrowser); # Remove for production code

sub showError {
    my $err = shift;
...
    print end_html();
    exit 1;
}

eval {
    #troublesome stuff here
};

ShowError ($@) if $@;