use PerlIO::gzip;
  open FOO, "<:gzip", "file.gz" or die $!;
  print while <FOO>; # And it will be uncompressed...

  binmode FOO, ":gzip(none)" # Starts reading deflate stream from here
+ on
[download]