Select Code to Download

#!/usr/bin/perl

...
$fh2->close;

print Dumper $href;

perl -MIO::Zlib -e '$fh = IO::Zlib->new("test.gz", "wb"); print fileno
+($fh)'

sub AUTOLOAD
{ print "AUTOLOAD(@_)\n";
...

    return tied(*{$self})->$AUTOLOAD(@_);
}

$ perl -MIO::Zlib -e '$fh = IO::Zlib->new("test.gz", "wb"); print file
+no($fh)'
AUTOLOAD(IO::Zlib=HASH(0x81e8b30))
IO::Zlib=HASH(0x81e8b30) IO::Zlib::FILENO 
main -e 1
Not a GLOB reference at /usr/lib/perl5/site_perl/5.8.0/IO/Zlib.pm line
+ 566.

$ perl -MIO::Zlib -e '$fh = IO::Zlib->new("test.gz", "wb"); print $fh-
+>fileno'
AUTOLOAD(IO::Zlib=GLOB(0x8124538))
...
IO::Zlib=HASH(0x81e8b3c) IO::Zlib::ILENO
IO::Zlib /usr/lib/perl5/site_perl/5.8.0/IO/Zlib.pm 566
Not a GLOB reference at /usr/lib/perl5/site_perl/5.8.0/IO/Zlib.pm line
+ 566.