Help for this page

Select Code to Download

Select or download this

use File::Copy;

...
        move("old/$file", "new/.") or die "move: old/$file: $!";
    }
}