Help for this page

Select Code to Download


  1. or download this
    use Encode;
use Tk;
...
 my $mw = MainWindow->new;
 $mw->Label(-text => encode("iso-8859-1", $text))->pack;
MainLoop;
  2. or download this
     $mw->Label(-text => encode("iso-8859-1", $text))->pack;
 $mw->Label(-text => $text)->pack;