my @files = <$dir1/*>;
system("mv", @files, $dir2);