use DBI;
use DBD::Oracle;
use strict;

my $dbh = DBI->connect("dbi:Oracle:host=myhost;sid=mysid", 'foo', 'bar') or die "I died: $DBI::errstr";

print "Content-type: text/html\n\n";
print "hey, i made it this far";