1234567 #!/tools/local/perl -wuse Tk;my $mw = MainWindow->new;my $image = $mw->Photo('-file' => Tk->findINC("icon.gif"));$mw->iconimage($image);$mw->iconify;MainLoop;
#!/tools/local/perl -w
use
Tk;
my
$mw
= MainWindow->new;
$image
=
->Photo(
'-file'
=> Tk->findINC(
"icon.gif"
));
->iconimage(
);
->iconify;
MainLoop;