#!/usr/bin/perl -w
use strict;
use warnings;
use File::Copy;

my $olddir= "./Old";
my $newdir="./New";

opendir  DH, $olddir;
while(my $file = readdir DH)	{
	move "$olddir/$file" , "$newdir/$file";
}
closedir DH;