open(my $stdout, ">&", STDOUT); 
...
# in the overloaded method PRINT
    $stdout->print( @_ ); # this refers to the original STDOUT.