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

}