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