# beginning of program

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

sub main {
...
}