use PerlIO::gzip;

open my $foo, "<:gzip", "file.gz" or die $!;
while ( my $line = <$foo> ) {
  print $line;
}
close $foo or die $!;