sub main {
   ... main program logic ...
}

eval { main() };
if ($@) {
   ... handle any fatal errors ...
}