#!/usr/bin/perl -wT
# example 11-2

use strict;
use DBI;

my $dbh = DBI->connect("DBI:mysql:book","book","addison") 
            or die "Error: $DBI::errstr\n";

my $sql = "SELECT mfg_pn, name, price FROM products WHERE vend_num = ?";
my $sth = $dbh->prepare($sql);
$sth->execute("31");
print DBI::dump_results($sth);

print "\n\n";

$sth->execute("5");
print DBI::dump_results($sth);

$dbh->disconnect;