BEGIN {
    $ENV{ORACLE_HOME} = 'g:\orant';
}

use DBI;
use strict;

my $host = 'myhost';
my $sid = 'PROD';
my $user = 'foo';
my $pass = 'bar';

my $db = DBI->connect('dbi:Oracle:host="$host";sid="PROD"', $user, $pass) 
   or die "Can't connect to server: $DBI::errstr\n";

print "Content-type: text/plain\n\n";
print "Hey, I got this far!";