#!/usr/bin/perl -w

# please pardon the *nix-isms!

BEGIN {
	$ENV{ORACLE_HOME} = '/path/to/oracle/install';
}

use DBI;
use strict;

my $db = DBI->connect('dbi:Oracle:host="oracle.host.com";sid="whatever"', $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!";