Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
tie *STDOUT, "MyHandle";

print "foo", "bar";    # "tied PRINT: foo bar" on STDERR
  2. or download this
    tie *STDOUT, "MyHandle", bar => 'quux';
  3. or download this
    $VAR1 = bless( {
                 'bar' => 'quux'
               }, 'MyHandle' );