#!/usr/bin/perl
 
# Use the DBI module
USE DBI;
 
# PERL SQL Update Example 
 
 
MY $dsn = 'DBI:mysql:dictionary:space.powweb.com';
MY $db_user_name = 'ssadmin';
MY $db_password = 'dictionary';
MY $password = "dictionary";
 
 
# Connect to the database
# Note this connection can be used to 
# execute more than one statement
# on any number of tables in the database
 
MY $dbh = DBI->connect($dsn, $db_user_name, $db_password) || DIE "Connect failed: $DBI::errstr\n";
 
 
 
# Create the statement.
 
$stmt = "UPDATE Player_Stats SET total_games_played = '199' WHERE username LIKE '%joe'";
 
# Prepare and execute the SQL query
$sth = $dbh->prepare($stmt) || DIE "prepare: $stmt: $DBI::errstr";
 
# Execute the statement
$sth->execute();
 
$sth->finish();
$dbh->disconnect();
 
 
PRINT "Content-type: text/html\n\n";
 
 
PRINT "Done!";
 
EXIT;