1. User clicks on a link in a web page (e.g. http://www.cgitest.com/cgi-bin/test.cgi).
2. The web server runs the program test.cgi.
3. The test.cgi program does what it is programmed to do.
4. The test.cgi program also builds a .html file in memory and sends it back to the user's browser.

# 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 = "SELECT Name FROM Phonebook  

         WHERE (Telephone LIKE '518%')";



# Prepare and execute the SQL query

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

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

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



# Get the first record

# If more than one record will be returned put

# the fetchrow in a while loop

@record = $sth->fetchrow()



# Get the value of the first field returned.

$telephone = $record[0];



# Clean up the record set and the database connection    

$sth->finish();

$dbh->disconnect();