my $sql = 'SELECT *
            FROM clttable
            WHERE clt LIKE ?';
my $sth = $dbi->prepare $sql;

##</code><code>##

$sth->execute('John*');