# Use the DBI module

use DBI qw(:sql_types);



# Declare local variables



my ($databaseName, $databaseUser, $databasePw, $dbh);

my ($stmt, sth, @newRow);

my ($telephone);



# Set the parameter values for the connection

$databaseName = "DBI:mysql:yourWebSite_com";

$databaseUser = "yourLoginId";

$databasePw = "yourLoginPassword";



# Connect to the database

# Note this connection can be used to 

# execute more than one statement

# on any number of tables in the database



$dbh = DBI->connect($databaseName, $databaseUser, 

    $databasePw) || die "Connect failed: $DBI::errstr\n";



# Create the statement.

UPDATE Addresses SET Last = 0 WHERE CustomerId = '$$customerId'

$stmt = "UPDATE Phonebook

         SET Telephone = '713-555-1212'

         WHERE Name LIKE '%Smith'";



# Prepare and execute the SQL query

$sth = $$dbh->prepare($$stmt) 

    || die "prepare: $$stmt: $DBI::errstr";

$sth->execute || die "execute: $$stmt: $DBI::errstr";



# UPDATE does not return records



# Clean up the record set and the database connection

$sth->finish();

$dbh->disconnect();