print "HTTP/1.0 200 OK\n";
print "Content-Type: text/html\n\n";
print "<HTML><HEAD><TITLE></TITLE></HEAD>\n";
print "<BODY>\n";
use DBI;
#use DBD::ODBC;
use CGI;
my ( $data_source, $database, $user_id, $password ) = qw( sdp-si.biz SDPSI username password );
my $DSN = "driver={SQL Server};Server=$data_source;Database=$database;UID=$user_id;PWD=$password";
#Connect the database handle.
$dbh = DBI->connect("DBI:ODBC:$DSN") or die "$DBI::errstr\n";
print "hello there";
#Close connection when finished:
$dbh->disconnect;
print "hello there";
print "</BODY>\n";
print "</HTML>\n";
