use strict;
my @dirs;
my $directory = "D:/Temp";

getdirs($directory);

for my $dir (@dirs) {
    update($dir);
}
print "DONE\n";

sub getdirs {
    my $directory = shift;
    opendir (DIR, $directory);
    my @files = grep { !/^\.\.?$/ } readdir DIR;
    closedir DIR;
    push (@dirs, $directory);
    for my $file (@files) {
        if (-d "$directory/$file") {
            getdirs("$directory/$file");
        }
    }
}