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

my $line = <$fh> ;