use IPC::Open2;
use FileHandle;

sub decompress_filehandle
{
  my $fh = shift;

  $WRITEHANDLE = new FileHandle();
  $READHANDLE  = new FileHandle();

  $procid = open2($READHANDLE,$WRITEHANDLE,'gzip -cd');
  #$procid = open2($READHANDLE,$WRITEHANDLE,'c:\progra~1\cygwin\bin\gzip.exe -cd');

  die "Couldn't open2: $!\n" unless defined $procid;

  while (<$fh>)
  {
    print $WRITEHANDLE $_;
  }

  close ($WRITEHANDLE) or die "Error in child: $!\n";

  return $READHANDLE;

  # put in END{}?
  # waitpid $pid,0;
}

my $fh = new FileHandle('mailarc-1.txt.gz');
my $dfh = decompress_filehandle($fh);

while(<$dfh>)
{
  print $_;
}

close ($dfh) or die "Error in child: $!\n";

##</code><code>##

use IPC::Run qw( run );
use FileHandle;

sub decompress_filehandle
{
  my $fh = shift;

  my $out = new FileHandle;

  #run ['gzip','-cd'], $fh, '>pipe', $out;
  run ['c:\progra~1\cygwin\bin\gzip.exe','-cd'], $fh, '>pipe', $out;

  return $out;
}

my $fh = new FileHandle('mailarc-1.txt.gz');
my $dfh = decompress_filehandle($fh);

print $_ while <$dfh>;