Select Code to Download

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 :(";