----
#!/usr/perl5/5.8.4/bin/perl -w

use DBI;

$host = "bo.boo.com";
$sid = "AAAA";
$user = 'secret';
$passwd = 'evenmoresecret';


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

$dbh->disconnect;
---