# ...
$dbh->{RaiseError}=1;
$dbh->{PrintError}=0;
# ...
for my $stmt( split /;\n+/, join('',<FH>) ){
    my $sth = $dbh->prepare($stmt);
    $sth->execute;
    fetch_and_display($sth) if $sth->{NUM_OF_FIELDS}
}

##</code><code>##

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