PRIMARY selection doesn't exist or form "STRING" not defined at ./tk.pl line 9