package MySTDOUT;
    use Tie::Handle;
    @ISA = qw/Tie::Handle/;

    sub TIEHANDLE {
        my $class = shift;
        bless {}, $class;
    }

    package main;
    tie *STDOUT, 'MySTDOUT';