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();

##</code><code>##

5:14:IUSRBEVO:&#9786;&#9827;     &#9827;§   &#8359;§J|&#9565;zê&#8735;j7&#9566;?  : :2000-09-22 14:08:48.217:2000-09-22 14:08:48.217:0::0::1:1:1:0:1:0:0:0:0
7:2:ARAdmin:&#9829;&#9532;ºoAá&#9573;&#9668;&#9564;&#9564; á$J§&#9563;:@:2003-02-18 13:08:06.370:2003-02-18 13:08:06.697:0::0::1:1:0:0:0:1:0:0:0

##</code><code>##

5:14:IUSRBEVO:0x0105000000000005150000009E15AE084A7CBC7A881C6A37C63F0000:0x00:2000-09-22 14:08:48.217:2000-09-22 14:08:48.217:0:NULL:0:NULL:1:1:1:0:1:0:0:0:0
7:2:ARAdmin:0x03C5A76F41A0D211BDBD00A0244A15BE:0x40:2003-02-18 13:08:06.370:2003-02-18 13:08:06.697:0:NULL:0:NULL:1:1:0:0:0:1:0:0:0