#!/usr/bin/perl

use DBI;
print "Content-type: text/html\n\n";

$server = "127.0.0.1";
$sid = "mysid";
$user = "myuser";
$passwd = "mypassword";

$dbh = DBI->connect("DBI:Oracle:host=$server;sid=$sid", $user, $passwd);
...
...