Select Code to Download

$query_handle->execute($patient_name);

use strict;
use warnings;
...
$sth->execute($name);

warn "no match for $name\n" unless $sth->rows;