Select Code to Download

perl -MFile::Find -MFile::Copy -we '
                     $dir1="/home/user/dir1";
                     $dir2="/home/user/dir2";
...
                     sub wanted { 
                 File::Copy::move( "$File::Find::dir/$_" , $dir2 );
                 }'