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


##</code><code>##

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