use Archive::Extract;
$Archive::Extract::PREFER_BIN = 1;
my $ae = Archive::Extract->new( archive => 'big.txt.gz' );
$ae->extract( to => 'big.txt');