Select Code to Download

BEGIN {
   if ($@) {
...
     exit;
  }
}

use CGI::Carp qw(fatalsToBrowser set_message);
BEGIN {
...
    }
    set_message(\&handle_errors);
}