use warnings;
use strict;

use Test::Thing;

my $Test = Test::Thing->new;

my $q = qq{
    SELECT x
    FROM y.z
    WHERE a LIKE ?
    LIMIT 1
};

my ($result) = $Test->db->dbh->selectrow_array($q, undef, "1111%");