Select Code to Download

my $tgz = "$tar cf - $dir/* | gzip -9c";
open my $gzipped, "$tgz |"
...
binmode $gzipped;
$/ = \4096;
print while <$gzipped>;