open(FILE, '-|', "gunzip -c $filename");

while (FILE) 
{
..do action..
}