Select Code to Download

perl -e '@files = (0 .. 300_000); system("echo @files") and die $!'
Argument list too long at -e line 1.

my @escaped = map { quotemeta } @directories;
system("tar cv @escaped|gzip >tarfile.tar.gz") and die $!;