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