Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        {
            exec("copy $path1\\$files[$f] $path2\\") || die "\n\nUnabl
+e to copy $files[$f]. Error: $!\n\n";
        }