Select Code to Download

sub BrowseForFolder {
   undef $Win32::FileOp::Error;
...

   $nFolder = CSIDL_DRIVES() unless defined $nFolder;
....

sub BrowseForFolder {
   undef $Win32::FileOp::Error;
...
   $hwndOwner = GetWindowHandle() unless defined $hwndOwner; #added fo
+r if $hwndOwner is undef

   $nFolder = CSIDL_DRIVES() unless defined $nFolder;

my $windowid = hex ($main_window -> id);
my $dir = BrowseForFolder("Relative to \$main_window", undef, undef, $
+windowid);

title => ... 
filters => ...
...
handle => ...
options => ...
etc...

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

...
    -open_folder => 'C:\Perl\site\lib\Win32',
    -handle => $windowid,
    );