my $button1 = $mw->Button(-text => "18-Letters",
                          -command => sub {print OUTFILE "18L\n" },
                          -background => "yellow"})->pack(-side =>"top");