Select Code to Download

…
my $string = ${middle}."%".', '.${last}.', '.${first};
...
my $sth = $dbh->prepare($sql) or die "Prepare Error: $DBI::errstr";
       $sth->execute($string) or die "SQL Error: $DBI::errstr\n";
…

called with 1 bind variables when 3 are needed