Anyone know what I'm doing wrong here?

Maybe you just need the latest version of Tk.pm?

$ perl -MTk -e " tkinit->Canvas->pack->scale(qw{ all 0 0 0 0 }); MainL
+oop;
scale factor cannot be zero at C:/perl/site/5.14.1/lib/MSWin32-x86-mul
+ti-thread/Tk.pm line 251.

$ perl -MTk -e " tkinit->Canvas->pack->scale(qw{ all 0 0 1 1 }); MainL
+oop;

$ pmvers Tk
804.03
[download]