Select Code to Download

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

use CGI;
use CGI::Carp qw(fatalsToBrowser);
...
    }
    CGI::Carp::set_message( \&carp_error );
}

#!/usr/bin/perl -T
use strict;
...
    }
    CGI::Carp::set_message( \&carp_error );
}