my $file = $Top->getOpenFile(-filetypes => $filetypes, -initialdir => "C:/home");