use DBI;

perl> perl -MCPAN -e "install DBI"
perl> perl -MCPAN -e "install DBD::mysql"

#!/usr/bin/perl

# PERL MODULES WE WILL BE USING
use DBI;
use DBD::mysql;
 
# HTTP HEADER
print "Content-type: text/html \n\n";
 
# CONFIG VARIABLES
$platform = "mysql";
$database = "store";
$host = "localhost";
$port = "3306";
$tablename = "inventory";
$user = "username";
$pw = "password";
 
# DATA SOURCE NAME
$dsn = "dbi:mysql:$database:localhost:3306";
 
# PERL DBI CONNECT
$connect = DBI->connect($dsn, $user, $pw);
 
# PREPARE THE QUERY
$query = "SELECT * FROM inventory ORDER BY id";
$query_handle = $connect->prepare($query);
 
# EXECUTE THE QUERY
$query_handle->execute();
 
# BIND TABLE COLUMNS TO VARIABLES
$query_handle->bind_columns(undef, \$id, \$product, \$quantity);
 
# LOOP THROUGH RESULTS
while($query_handle->fetch()) {
   print "$id, $product, $quantity <br />";
} 

#!/usr/local/bin/perl

use DBI;
 
print "Content-type:text/html\n\n";
 
$dbh = DBI->connect("dbi:mysql:database=; host=localhost; user=; password=")
    or die "Connecting from PHP to MySQL database failed: $DBI::errstr";
 
$sSQL = "SELECT FirstName, LastName FROM Users";
$st = $dbh->prepare($sSQL)
    or die "Preparing MySQL query failed: $DBI::errstr
";
 
$st->execute()
    or die "The execution of the MySQL query failed: $DBI::errstr";
 
while ($row = $st->fetchrow_hashref())
{
    print " $row->{FirstName} $row->{LastName}
";
}
 
$dbh ->disconnect();
 

#!/usr/bin/perl
use DBI;
 
$database = "DBNAME";
$hostname = "DBSERVER";
$port = "3306";
$username = "DBUSERNAME";
$password = 'DBPASSWORD';
 
$dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
 
$dbh = DBI->connect($dsn, $username, $password) or die("Could not connect!");
 
$sql = "SELECT * FROM mytable";
 
$sth = $dbh->prepare($sql);
$sth->execute;
 
 
while(($column1, $column2) = $sth->fetchrow_array)
{
print "C1 = $column1, C2 = $column2n";
}
 
 
$dbh->disconnect;