print "HTTP/1.0 200 OK\n"; print "Content-Type: text/html\n\n"; print "\n"; print "\n"; use DBI; use CGI; my $DSN = 'driver={SQL Server};Server=SRV01;Database=SDPSI;UID=my_id;PWD=my_pswd'; #Connect the database handle. $dbh = DBI->connect("DBI:ODBC:$DSN") or die "$DBI::errstr\n"; #If connected, print... print("It's in."); #Close connection when finished: $dbh->disconnect; print "hello there"; print "\n"; print "\n";