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