how do I do attributes(-toolwindow=>1) in perlTk?

After  reading  about -toolwindow attribute on Tcl wiki  at 
http://mini.net/tcl/13340 about "...- There is actually some native 
support in Windows for palettes via   ' wm attribute $toplevel 
-toolwindow 1'"

When I trying something similar  with perlTk 804.027:

perl -MTk -we 
"$mw=tkinit;$tl=$mw->Toplevel;$tl->Button(-text=>'Ok')->pack;$tl->attributes(-toolwindow=>1);MainLoop"

I receive some strange error:
============
UpdateWrapper: Failed to create container

This application has requested the Runtime to terminate it in an unusual 
way.
Please contact the application's support team for more information.
============

Is there is something that I miss?

BTW Tcl::Tk module gives me what I expect:

I  do
perl -MTcl::Tk=:perlTk -we 
"$mw=tkinit;$tl=$mw->Toplevel;$tl->Button(-text=>'Ok')->pack;$tl->interp->call('wm','attribute',$tl,-toolwindow=>1);MainLoop"

and I see toolbox-like window


-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to [email protected]