my $windowid = hex ($mw -> id);

my $directory = BrowseForFolder (
	-title => "Choose Directory:",
	-CSIDL_opt => 'CSIDL_DRIVES,
	-BIF_opts => 'BIF_RETURNFSANCESTORS',
	-open_folder => 'C:\Perl\site\lib\Win32',
	-handle => $windowid,
	);