Select Code to Download

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

[Wed Oct  5 23:53:36 2021] test.cgi: Died at /web/test.cgi line 15.

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
...
else {
    print $response->status_line;
}