#####################################################
$entrysql->bind('<Return>',[sub {
                            $sql = $entrysql->get;
eval {
      local $dbh->{AutoCommit} = 0;
      my $sth = $dbh->prepare("select $mainstr from info $sql")
                                     or die DBI::errstr;
      $sth->execute or die DBI::errstr;
     };

if($@){ print chr(07),  $@, "bad sql\n"; return}

print "seems ok\n";

#....continue on and do it for real