$top = MainWindow->new();
$top->title("Window Title");
$main_frame = $top->Frame()->pack(
	-fill=>'both', 
	-expand=>1
);


##</code><code>##

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;
 }
}

##</code><code>##

sub savefile {
#print "You clicked Save As..\n";	

my $savetypes = [
     ['All Files',        '*',             ],
 ];
 $outfile = $top->getSaveFile(-filetypes=>$savetypes, -title=> "Type an output filename");
   if ($outfile ne "") {
       $save_entry_box->delete(0,99999);
       $save_entry_box->insert(0,$outfile);
       ui $main_frame;
   }



}