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";