BEGIN {
    use CGI::Carp qw( carpout );
    my $logfile = '/path/to/cgi-name.log';
    open my $logfh, '>>', $logfile
        or die "Unable to open $logfile: $!\n";
    carpout $logfh;
}