Select Code to Download

# ...
$dbh->{RaiseError}=1;
...
    $sth->execute;
    fetch_and_display($sth) if $sth->{NUM_OF_FIELDS}
}

-- get_customer_name
SELECT name FROM customer WHERE id = ? [47];