Select Code to Download

#create test 48kb gz
perl -e 'print ("xxxxx" x 100000000) '|gzip  > test.gz

#perl 
$Archive::Extract::PREFER_BIN = 1;
$ae = Archive::Extract->new( archive => 'test.gz' );
$ae->extract( to => 'test.txt');
print "end\n";

my $cmd = [ $self->bin_gzip, '-cdf', $self->archive ,'>' ,$self->_gunz
+ip_to ];