sub rewind
{
    $_[0]->close();
    $_[0] = new  new IO::Uncompress::Gunzip $_[1],
                   Transparent => 1
    or die "Cannot open file ..." ;
}

rewind($fh, "somefile");