$ perl -MTk -e " tkinit->Canvas->pack->scale(qw{ all 0 0 0 0 }); MainLoop; scale factor cannot be zero at C:/perl/site/5.14.1/lib/MSWin32-x86-multi-thread/Tk.pm line 251. $ perl -MTk -e " tkinit->Canvas->pack->scale(qw{ all 0 0 1 1 }); MainLoop; $ pmvers Tk 804.03