use Win32::FileOp qw /BrowseForFolder/;

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