I got it working that way:

<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/ne
+w/$file";
                                my $curFile = "/home/iphone/Maildir/cu
+r/$file";
                                rename $newFile, $curFile or die $!;
                            }
                    }
        }
[download]

</code> Thanks for help Robert