sub PRINT {
    my $self = shift;
    local STDERR; untie STDERR;
    print STDERR @_;
    print $my_log_file @_;
}