#$dbs = "dbi:ODBC:DRIVER={SQL Server};SERVER={ServerName}";

# Brukernavn og passord til DBserver
$username = "";
$password = "";

# Oppretter tilkoblingen
#$dbh = DBI->connect($dbs,$username,$password);

# Hvis tilkoblingen funka så gjør den dette
if(defined($dbh))
{
        # Skriv inn filnavn på filen med basenenavnene her
        open (FILE, "dbnavn.txt");

        while ($line = <FILE>) {
                $query = "sql spørring her";
                #linje her som kjører spørring med $line som attri
                print $line;
        }

close (FILE);
}
else {
        print "Kunne ikke koble til database\n";
}