I wrote the following code in PERL to retrieve some information from a

#!/usr/local/bin/perl

use DBI;

# Initialize variables and objects. my $db = "iwant_db"; my $user = "username;

my $password = "mypassword"; my $hostname = "host.mysql.com"; my $data_source = "DBI:mysql:$db:$hostname";

# Connect to the database. my $dbh = DBI->connect($data_source, $user, $password) or die "Failed to connect to host\n";

$sth = $dbh->prepare("SELECT * FROM Categories");

$sth->execute();

# Read the matching records and print them out while (@data = $sth->fetchrow_array()) { my $Category_Name = $data[1];

print "\t$Category_Name\n"; }

if ($sth->rows == 0) { print "There are no categories.\n\n"; }

$sth->finish; $dbh->disconnect;