Quickest way to locate System32 Dir?

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I've been looking at thw Win32 modules for a fast solution to determine the absolute path to the System32 directory on different versions of Windows. I've also looked at using the File::Find module but this has proven to be very slow using the following code:

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";
    }
}
[download]

Does anyone have any suggestions?

Thanks

Back to Seekers of Perl Wisdom