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 or die "Error in copying: $!\n";
    }
}
closedir IMAGES;