system "mv $dir1/* $dir2";

##</code><code>##

    system "find $dir1 -type f -exec mv {} $dir2 ';'";