BEGIN {
    use IO::Tee;
    $ol = select IO::Tee->new( STDOUT, STDERR, IO::File->new...);
}