Help for this page

Select Code to Download


  1. or download this
    package MY_STDOUT;
use strict;
...
    return print TRUE_STDOUT @_;
}
1;
  2. or download this
    use MY_STDOUT;
print "content-type: text/html\n\n"; #try commenting out this line
print "<html>\n";
print "</html>\n";
  3. or download this
    open(TRUE_STDOUT, '>', '/dev/stdout');
tie *STDOUT, __PACKAGE__, (*STDOUT);
  4. or download this
    my $MY_STDOUT = MY_STDOUT->new();