my $fh = IO::File->new("gunzip $file |");