如何在Perl中显示打开的文件夹选择对话框？

use strict;
use Win32::GUI();

my $dialog = Win32::GUI::BrowseForFolder(
    {
        Parent => Win32::GUI::GetDesktopWindow(),
        Title => "选择文件夹",
        Root => "MyComputer",
    }
);

if ($dialog) {
    print "选择的文件夹路径：$dialog\n";
} else {
    print "未选择文件夹\n";
}