#!/usr/bin/perl

use Mysql;

$DBHOST = "localhost";
$DBNAME = "dbname";
$DBUSER = "user";
$DBPASS = "password";

$DB = Mysql->connect($DBHOST, $DBNAME, $DBUSER, $DBPASS);

my $qry = $DB->query( qq~SELECT * FROM cds~ );

while( @emps = $qry->fetchrow) {
    print qq~
    $emps[0]<br>
    ~;
}
[download]