Select Code to Download

    my $handle = gensym;
    open $handle, ref ($file) ? ">&". fileno ($file) : ">" . $file
  and binmode ($handle)
      or goto &_drat;

       the IO::String manpage, which is quite similar but which
       was designed more-recently and with an IO::Handle-like
...
       filehandle usage without using tied().  Note: if anyone
       can make IO::Scalar do that without breaking the
       regression tests, I'm all ears.

       write ($file, $compressed)
           Write the in-memory archive to disk.  The first
           argument can either be the name of a file or a
           reference to an already open file handle (be a GLOB
           reference).  If the second argument is true, the

Can't locate object method "FETCH" via package "IO::String" at /home/p
+erl/lib/5.6.0/ppc-linux-thread-multi/Data/Dumper.pm line 150.

tie *IOST, 'IO::String';
print Dumper \*IOST;

       FETCH
            This method will be triggered every time the tied
...
            example below, that real value is the process ID to
            which we've tied our variable.

open TRICKERY, \$stringamabob;