値のエスケープ

 my $name  = "taro";
 my $dbh   = $c->model('DBIC')->schema->storage->dbh;
 my $rs    = $c->model('DBIC::Users');
 my $_name = $dbh->quote('%' . $name . '%');
 $rs = $rs->search_like( { name  => \$_name } );

http://search.cpan.org/perldoc?DBI#quote