use strict;
use warnings;
use diagnostics;
use File::Copy;

my $htmldir = "C:/wwwRoot/Stats/";
my $sourcedir = "Images";

opendir (IMAGES, $sourcedir) or die $!;
foreach (readdir IMAGES) {
   unless (-e $htmldir . $_) {
       copy $sourcedir.'/'.$_, $htmldir;
   }
}
closedir IMAGES;