Select Code to Download

$top = MainWindow->new();
$top->title("Window Title");
...
    -expand=>1
);

sub openfile {

...
 ui $main_frame;
 }
}

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

}