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

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

opendir(DIR, "$newDir");
my @FILES= readdir(DIR);
closedir DIR;

foreach (@FILES)
         {
                $file = $_;

                my $newFile=$newDir."\/".$file;
                my $curFile=$curDir."\/".$file;
                print "$newFile\n";
                print "$curFile\n";
                rename $newFile, $curFile;
        }