#!/usr/bin/perl -w
use strict;
use DBI;

my $dbtype = "mysql";
my $dbname = "mydb";
my $dbuser = "username";
my $dbpass = "userpassword";

my $dbh = DBI->connect("DBI:${dbtype}:${dbname}", "$dbuser", "$dbpass") || die $DBI::errstr;

my $sql = "SELECT foo, bar FROM mytable";
my $sth = $dbh->prepare($sql);
$sth->execute() || die $DBI::errstr;

while (my ($foo, $bar) = $sth->fetchrow()) {
  print "Column foo contains: $foo\n";
  print "Column bar contains: $bar\n";
}

$sth->finish();
$dbh->disconnect() || warn $DBI::errstr;