my $tgz = "$tar cf - $dir/* | gzip -9c";
open my $gzipped, "$tgz |"
    or die "Couldn't run [$tgz]: $!/$?";
binmode $gzipped;
$/ = \4096;
print while <$gzipped>;