弱问题：汉字乱码问题。

弱问题：汉字乱码问题。
#!/usr/bin/perl

use Tk;

$main = MainWindow->new();
$main->title("你好!!");#显示乱码， 怎么才能显示汉字？

$label = $main->Label(-text => "Hello from TK!");
$button = $main->Button();

$icon=$button->Photo(-file=>'icon.gif');

$button->configure(
-image=>$icon,
-command=>sub { exit; }
);
$label->pack(-side => 'bottom');
$button->pack(-side=>'left', -padx=>5);

MainLoop();