#!/opt/exp/bin/perl5.8
use strict;
use warnings;

use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;

my $ifile = shift || die "Missing input file name\n";

open(IFILE, "<$ifile") || die "Can't open $ifile";
binmode(IFILE);

my $inputstr = join('', <IFILE>);

print STDERR scalar(localtime), " - STARTING UNZIP!!!\n";
# This is fast on all platforms
gunzip \$inputstr => "clearfile" or die "gzip failed: $GunzipError\n";

my $cleartxt;
# This takes forever on windows, no problem on Unix
#gunzip \$inputstr => \$cleartxt or die "gzip failed: $GunzipError\n";

print STDERR scalar(localtime), " - UNZIPPED COMPLETE!!!\n";