BEGIN{ use CGI::Carp qw(carpout); open LOG, $logfile or die "Couldn't open log file: $!"; carpout(LOG); }