use strict;
use DBI;

my $dbh = DBI->connect(
   'DBI:mysql:CLTE',
   {RaiseError=>1}
);

my $sql = "
   SELECT * FROM clttable
   WHERE clt LIKE ?
";

my $sth = $dbh->prepare($sql);
$sth->execute($INPUT{clt} . '%');

my $row = $sth->fetchrow_hashref;

$sth->finish;
$dbh->disconnect;