####################################
use Tk;
use encoding("utf8");
$label_text1 = "软件说明";
$label_text2 = "高德电子软件说明";
$label_text3 = "工作站";
$mw = new MainWindow;
$mw->Label(-text => $label_text1)->pack;
$mw->Label(-text => $label_text2)->pack;
$mw->Label(-text => $label_text3)->pack;
MainLoop;

#################################
各位高人帮忙解决啊！