use Tk::Photo;
my $egg = &im(1);
$icon = $mw->Photo('image', -data=>$egg, format=>'gif');
$mw->iconimage($icon);