Select Code to Download

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