my $DSN = 'driver={SQL Server};Server=new-borg;database=master;uid=;pwd=;';
my $dbh = DBI->connect("dbi:ODBC:$DSN") or die "$DBI::errstr\n";

my $sql = qq{ select * from sysusers };

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

while (@row = $sth->fetchrow_array()) {
	print $#row,':',join(':',@row),"\n";
}

$sth->finish();