- or download this
use strict;
use CGI::Carp qw/fatalsToBrowser set_message/;
...
}
die('[this is the message passed to die]');
- or download this
[this is the message passed to die] at /home/evan/dietest.cgi line 18.
- or download this
sub die_nice {
my $err = shift;
$err =~ s/ at \S+ line \d+//g
...
print "</body>\n</html>\n";
warningsToBrowser(1);
}