Select Code to Download

#!/usr/local/bin/perl -W # force taint checks, and print warnings
use strict; # install all three strictures
...
    print "\$destFile = $destFile\n";
    copy( "$_" , "$destFile" ) or print "File $_ cannot be copied. $!\
+n";
}