#!/usr/bin/perl
use strict;
use warnings;

my $newDir = "/home/iphone/Maildir/new";
my $curDir =  "/home/iphone/MailDir/cur";

opendir(DIR, "$newDir");
my @FILES= readdir(DIR);
closedir DIR;
foreach (@FILES) {
					my $newFile="$currentDir"."\/".$file;
						my $curFile="$oldDir"."\/".$file;

 rename $newFile, $curFile;
}