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>;