open (my $handle,"gunzip -c $filename |" ) or die $!;