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