Select Code to Download

Using File::Copy       : 129 seconds
system("cp blah blah") : 171 seconds

my $cmd = "cd $olddirectory; tar -cvf - " . join(' ',@files) . " | gzi
+p -c -1 | (cd $newdirectory; gzip -c -d | tar -xvf -)";
system ($cmd);
...
Using gzip -9 : 64 seconds
Using gzip -1 : 57 seconds
Without gzips : 52 seconds