$ perl -MTk -e " tkinit->Label( text => 1 );"
unknown option "text" at C:/perl/site/5.14.1/lib/MSWin32-x86-multi-thread/Tk/Widget.pm line 205.
 at -e line 1.