#!/usr/bin/perl -w

use strict;
use DBI;

my $DSN = "DBI:mysql:database=testDB";

my $dbh = DBI->connect( $DSN, "xxx", "xxx" ) or die "$DBI::errstr";

my $sth = $dbh->prepare("select * from teams");
$sth->execute();

while( my $ref = $sth->fetchrow_hashref() ) {
  print "$ref->{'wins'} $ref->{'losses'}";
}

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