my $manuf_name='Sony'; <br>
my $query = "select vendor_id from vendor where vendor_name=?";<br>
my $result=$dbh->prepare($query) or print "cannot prepare $query; <br>
$result->bind_param(1,$manuf_name) or print "error binding $manuf_name to $query"; <br>
$result->{LongReadLen}=512*1024; <br>
$result->{LongTruncOk}=1; <br>
$result->execute() or print "Error while executing query --- $result->errstr()"; <br><br>