sub  scan_files {

     my $dir=$_[ 0 ];
     my (@dirs,@files,$filename,$newdir,$list);

     opendir(DIR,$dir) or (print "Cannot open $dir: $!\n");
     @dirs=grep {!(/^\./) && -d "$dir/$_"} readdir(DIR);
     rewinddir(DIR);
     closedir (DIR);

     for $list( 0 ..$#dirs) {
         $newdir=$dir."/".$dirs[$list];
         if ($newdir =~ /subscriber\/Maildir\/new$/ ) {next}
         push @dest_dirs, $newdir if ($newdir =~ /new$/ )
         &scan_files ($newdir);
     }
     
     return  1 ;
}

&scan_files($base_dir);

opendir(Dir, $SourceDir) ||die();

while ($file = readdir(Dir))
        {
          push @l, $file if ($file !~ /^\./);
        }
closedir(Dir);


foreach $source (@l){
  chomp;
  foreach $dest_dir(@dest_dirs){
    system("cp $SourceDir/".$source." $dest_dir/"."$source");
  }
}