Help for this page

Select Code to Download

Select or download this

BEGIN {
    use CGI::Carp qw( carpout );
...
        or die "Unable to open $logfile: $!\n";
    carpout $logfh;
}