or download this
my $sql = sprintf("... where CustomField = ? and Name like %s", $dbh->
+quote($name . '%'));
$agent1 = $dbh->prepare($sql) || die $DBI::errstr;
...
$Agent1->execute(291) || die $DBI::errstr ;
( $phone_no,$mail )= $Agent1->fetchrow_array or die "no results :(";