Help for this page

Select Code to Download


  1. or download this
            $_[0]=$handle
            unless defined $_[0];  # pass up to caller
  2. or download this
        *CORE::GLOBAL::open=sub (*;$@) {

...

        tie *$handle,"TieInput",*$handle;
    };
  3. or download this
    $ ./953722.pl
opening in1.txt:
...
'
     );
  at ./953722.pl line 124, <$In> line 3.