our $newdir = "Pulled on $date";
mkdir $newdir;

# i want the dftree to skip the $newdir only and continue on
# after. Thanks!

sub dftree(){
        my $dir = shift;        
        opendir (DIR, $dir) or die "Could not open directory $dir: $!";

        my @entries = map {"$dir/$_"} grep {!/^\.{1,2}$/} readdir(DIR);
        closedir DIR;

        for (@entries) {
              (-d) ? &dftree($_) :(/\.html$/)? &file_check($_): next;
        }
        
}