my $fh = new IO::Uncompress::Gunzip "input file",
                   Transparent => 1
    or die "Cannot open file ..." ;

my $line = <$fh> ;