use strict;
use DBI;
#use DBD::ODBC ;

my ($data_source, $database, $userid, $password) = 
  qw( server webdb webdev webdevpass );
my $connect_string = 
"driver={SQL Server};Server=$data_source;Database=$database;UID=$userid;PWD=$password";

my $dbh = DBI ->connect ( "DBI:ODBC:host=localhost;$connect_string" )
        or die $DBI::errstr; 
my $sql = "select name, wins, losses from teams";

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

$sth->execute;

my $count = 0;

while (my @val = $sth->fetchrow_array ) {
        printf "name =%s, wins =%d, losses = %d\n", 
            $val[0], $val[1], $val[2];
        ++$count;
}
print "$count rows total\n"; 
$dbh->disconnect ();