BEGIN { use CGI::Carp qw(carpout); open(LOG, ">>/var/log/yourlogfile") or die("Unable to open yourlogfile: $!\n"); carpout(LOG);}