use Tk;
$mw=tkinit;
$tl=$mw->Toplevel;
print hex($tl->id);
$tl->Button(-text=>'Ok')->pack;
#$tl->attributes(-toolwindow=>1);
$mw->after(1000,sub {$tl->attributes(-toolwindow=>1)});
MainLoop;