use Tk;
my $mw = MainWindow->new;
my $icon = $mw->Photo(-file => 'myicon.ico');
$mw->iconimage($icon);
#...place some widgets
MainLoop;