BEGIN {
    use CGI::Carp qw(carpout);
    my $fn = "/home/joeschmoe/logs/foo_log";
    open my $fh, ">>", $fn
        or die "Unable to open $fn for appending: $!\n";
    carpout($fh);
}