use DBI;
print "content-type: text/html\n\n";
print 'Outputtitle><head><body>';
my $dbh = DBI->connect('dbi:dbd:DATENBANK:MSSQLSERVER, 'USER', 'PWD') or die ("da geht nix");
my $sql = q/select dokument, version from dokuversion/;
my $sth = $dbh->prepare($sql);
$sth->execute;
while (my @row = $sth->fetchrow_array) {
print "<tr><td>$row[0]</td><td>$row[1]</td></tr>\n";
}