my $mw = Tkx::widget->new('.');

my $img = Tkx::image_create_photo(-file => 'icon.gif');
$mw->g_wm_iconphoto($img);