sub deldir {
my $dirtodel = pop;
print "Deleting $dirtodel...\n";
my $sep = '\\'; #change this line to "/" on linux.
opendir(DIR, $dirtodel);
my @files = readdir(DIR);
closedir(DIR);
@files = grep { !/^\.{1,2}/ } @files;
@files = map { $_ = "$dirtodel$sep$_"} @files;
@files = map { (-d $_)?deldir($_):unlink($_) } @files;
rmdir($dirtodel);
}
}