Help for this page
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