Simple Example
previous slidetable of contentsnext slide

use DBI;

my $db_source = "dbi:Pg:dbname=????";
my $db_user   = '????';
my $db_pswd   = '????';

my $sql = "select monthnum, monthname from months order by monthnum";

my $dbh = DBI->connect($db_source, $db_user, $db_pswd);

my $sth = $dbh->prepare($sql);

$sth->execute();

while(my($num, $name) = $sth->fetchrow_array) {
  printf("%2d %s\n", $num, $name);
}

$sth->finish();

$dbh->disconnect();