you could do something like putting an eval() statement around your entire script, which is easily accomplished by the following:

# beginning of program

eval {
    main();
};
if ( $@ ) {
    confess();
}

sub main {
...
}
[download]

Here, just make the sub main() be what would normally be the program block outside of any function call, i.e. heres how to turn hello world into what i'm saying

#!/usr/bin/perl -w

use strict;
use Carp;

eval {
    main();
};
if ( $@ ) {
    confess();
}

exit;

sub main {
    print "hello world\n";
}
[download]

Trivial example, this should never die, if it does, you have bigger problems.