print "What folder?\n";
$term = <>;
chomp $term;
$mp = "C:/Strawberry/";
opendir($dh,$mp) || die "wtf??";
while( $tekst = readdir($dh)){
	if(-d "$mp$tekst" && $tekst !~ /^\./){
		if($term eq $tekst){
			print "found: $mp$tekst\n";
		}
		else{
			$hulp ="$mp$tekst";
			godeep($hulp);
		}
	}	 
}
close $dh;	


sub godeep{
$fld = shift;
opendir($dir,$fld); 
while($tekst2= readdir($dir)){
	if(-d "$fld/$tekst2" && $tekst2 !~/^\./) {
		if($term eq $tekst2){
			print "found: $fld/$tekst2\n";
		}
		else{
			$hulp2 = "$fld/$tekst2";
			godeep($hulp2);
		}
	}	
}
}