Select Code to Download

        copy($i,$to_dir);

FILE:
for my $file (@update) {
...

    copy($file, "$to_dir/$first_4_chars");
}

use strict;
use warnings;