yeah... but when i include this line in the main program

use strict;
use warnings;

$queryhandle->bind_colums(undef, \my $id, \my $vegetable, \my $price e
+tc....);
[download]

those error lines will gone but the thing that what i ask for is its getting hang while connecting to mysql like a building a socket in perl/tk coz i am very new to perl/Tk