find(\&locate_system32, "C:\\");
# Not to mention it only looks on one drive (i.e. "C")
sub locate_system32 {  

    if (/system32/) {
	$system32 = "$File::Find::dir";
    }
}