sub openfile {

#print "You clicked Open..\n";

my $opentypes = [
     ['CSV Files',       '.csv',	],
     ['TXT Files',      '.txt',           ],
     ['All Files',        '*',             ],
 ];
 $csvfile = $top->getOpenFile(-filetypes=>$opentypes, -title=> "Select a CSV File");
 
 if ($csvfile ne "") {
 $csv_entry_box->delete(0,99999);
 $csv_entry_box->insert(0,$csvfile);
 ui $main_frame;
 }
}