BEGIN { use CGI::Carp qw[ carpout ]; carpout(\*LOGGY) if open(LOGGY, '>>'.__FILE__.'.log'); }