http://www.perlmonks.org?node_id=167577


in reply to Extracting a GZIP File

If you got access to gunzip on the server you could do something like 
my $file = 'foo.bar'; #PLEASE Taint Check this if it comes from outsid
+e
my $contents = `gunzip -c $file`;

[download]
Otherwise if it's available Compress::Zlib you could take a look at the gzopen function.


$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g

In Section Seekers of Perl Wisdom