Assertion ((svtype)((_svi)->sv_flags & 0xff)) >= SVt_PV failed: file "objGlue.c", line 307 at /usr/lib/perl5/vendor_perl/5.10.0/x86_64-linux-thread-multi/Tk/Widget.pm line 205.
 at ./foo.pl line 9