use strict;
use warnings;
use DBI;

# declare your sid, user, pass etc variables here;

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