#!/usr/bin/perl
use strict;
binmode STDOUT;
my $gz=shift || die("no filename given");
open GZPIPE, "d:\\cygwin\\bin\\gunzip -c $gz|";
while (<GZPIPE>) { print ; }
close GZPIPE ;
