$xlsFileName = ""; my @types = (["3d Files",'.3d'], ["Excel Files",'.xls'], ["All files", '*']); $xlsFileName = $mw->getOpenFile(-filetypes => \@types, -title=>'file to read', -initialdir => $xlsFileName); $mw->Unbusy; return 'Cancel' unless($xlsFileName); $message = "Selected File: $xlsFileName"; $mw -> update;