MySQL

use DBI;
use DBD::mysql;

my $dbh = DBI->connect("DBI:mysql:MYSQL_DATABASE:MYSQL_HOST", "USERNAME", "PASSWORD");
my $statement = "select * from MYSQL_TABLE";
my $sth = $dbh->prepare($statement)
    or die "Can't prepare $statement: $dbh->errstr\n";
my $rv = $sth->execute
    or die "can't execute the query: $sth->errstr";

while (my @row = $sth->fetchrow_array) {
    print "@row\n";
}

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