Select Code to Download

        $folder = Win32::GUI::BrowseForFolder(
                -root => "C:\\Program Files",
                -includefiles => 1,
        );

$ret = GUI::GetSaveFileName(
    -title  => "Save your newly generated Mail Merge Document.",
...
        "Word documents (*.doc)" => "*.doc", 
        "All files", "*.*",
    ],