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

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

opendir my $dir, $newDir or die $!;
my @FILES = grep { !/^\./ and -f "$newDir/$_" } readdir($dir);
closedir $dir;

move( "$newDir/$_", "$curDir/$_" ) for @FILES;