# 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. 
$stmt = "INSERT INTO Phonebook (Id, Name, Telephone)
         VALUES (‘BBBBB’, ‘Joe Smith’, ‘212-555-1212’)";

# Prepare and execute the SQL query
$sth = $$dbh->prepare($$stmt) 
    || die "prepare: $$stmt: $DBI::errstr";
$sth->execute || die "execute: $$stmt: $DBI::errstr";

# INSERT does not return records

# Clean up the record set
$sth->finish();

# We could add another record here as well

# Create the statement. 
$stmt = "INSERT INTO Phonebook (Id, Name, Telephone)
         VALUES (‘CCCCC’, ‘Marcy Jones’, ‘402-555-1212’)";

# Prepare and execute the SQL query
$sth = $$dbh->prepare($$stmt) 
    || die "prepare: $$stmt: $DBI::errstr";
$sth->execute || die "execute: $$stmt: $DBI::errstr";

# Clean up the record set and the database connection
$sth->finish();
$dbh->disconnect();