Select Code to Download

...
    my $searchterm = $query->param('searchterm');
...
my $sth = $dbh->prepare ($stmt) or die "Error Preparing:\n" . $stmt . 
+"\nDBI returned: \n", $dbh->errstr;
    
    $sth->execute () or die "Unable to execute query: " . $sth->errstr
+;

    my $stmt = "SELECT * FROM users WHERE $searchfield = ?";
...
    my $sth = $dbh->prepare ($stmt) or die "Error Preparing:\n" . $stm
+t . "\nDBI returned: \n", $dbh->errstr;
    
    $sth->execute($searchterm) or die "Unable to execute query: " . $s
+th->errstr;