Select Code to Download

use warnings;
use strict;
...
    copy($File::Find::name, $copy_name) or
        die "Unable to copy $File::Find::name to $copy_name: $!";
}