$entrysql->bind('<Return>',[sub {
                            $sql = $entrysql->get;
my $sth;
eval {$sth = $dbh->prepare("select $mainstr from info $sql")
                               or warn DBI::errstr $!;
                                        $sth->finish;           };

if ($@){
print "ERROR - $@\n";
print chr(07);
return;
}

.......continue to execute the sql
}