#Pseudo Code
#!/usr/bin/perl
use warnings;
use strict;
use File::Find;

my $startdir = "C:/Dokumente\ und\ Einstellungen/";
my $subdir1 ="Lokale\ Einstellungen/ temp";
my $subdir2 ="Lokale\ Einstellungen/Temporary\ InternetFiles";

opendir(DIR, $startdir) or die "could not open: $!";

while (my $file = readdir(DIR)) {
	next if ($file =~ /^\.{1,2}|All\ Users|LocalService|NetworkService|Default\ User/i);
	print "$file\n";
    print "$subdir1\n";
	print "$subdir2\n";
	#missing part: delete code from $file, $subdir1 recursively
	
	}
closedir(DIR);