Select Code to Download

use strict;
use warnings;
...
    if (!(-d $subdir)) {make_path($subdir);}
    copy($file,$subdir);
}

source
     test1.gif
...
     test3.gif
     test3.pdf
     test3.txt

source
     test1.gif
...
          test1.txt
          test2.txt
          test3.txt