in reply to Win32::GUI TreeView

    use Win32::FileOp qw /BrowseForFolder/;

    my $dir = BrowseForFolder("Choose Directory");
    print "\nSelected dir", $dir;

[download]

In Section Seekers of Perl Wisdom