use DBI; 
$dbh = DBI->connect("dbi:Oracle:", "scott","tiger") || die "Unale to connect to oracle.  $DBI::errstr\n";