<code>
#!/usr/bin/perl
use strict;
use warnings;

my $file;

opendir(DIR, "$newDir");
my @FILES= readdir(DIR);
closedir DIR;

foreach (@FILES)
         {
			$file = $_;
                
				if ($file ne "..") 
					{
						if ($file ne ".")
                                    
							{                       
								my $newFile = "/home/iphone/Maildir/new/$file";
                                my $curFile = "/home/iphone/Maildir/cur/$file";
                                rename $newFile, $curFile or die $!;
                            }
                    }
        }