Select Code to Download

my $f = $mw->Frame->pack(-side => 'top', -fill => 'x');
my $t = $mw->Scrolled("Text",-font=>"{arial} 12 {bold}")->pack(-side =
+> 'bottom', -fill => 'both', -expand => 1);

$f->Button(-text => "Display", -command =>\&tged)->pack(-side => 'righ
+t'); 

...
#print @chars;
  }
1;

my $t = $mw->Scrolled("Text",-font=>"{arial} 12 {bold}")->pack(-side =
+> 'bottom', -fill => 'both', -expand => 1);

...
.
}
1;