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=$user;PWD=$password";
my $dbh = DBI ->connect ( "DBI:ODBC:host=localhost;$conn_string" )or die $DBI::errstr;
#             {PrintError => 0, RaiseError =>1});

my $sql = "select name, wins, losses from teams"

$sth = $dbh->prepare ( $sql );
$sth->execute;
$count = 0;
while (my @val = $sth->fetchrow_hashref )
{
       printf "name =%s, wins =%d, losses = %d\n",
                      $val[0], $val[1], $val[2];
       ++$count;
}


print "$count rows total\n";
#$sth->finish ();
#$data ->close ();
$dbh->disconnect ();
exit (0);