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

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

opendir (IMAGES, "Images");
foreach (readdir IMAGES) {
    unless (-e $htmldir . $_) {
        copy $_, $htmldir;
    }
}
closedir IMAGES;