sub PRINT { my $class = shift; #orig_stdout is file pointer to /dev/stdout return print orig_stdout *some_stdout_wrapper_text* @_; }