use DBI;

my $host        = "yyy.xxx.com";
my $user        = "user";
my $password    = "password";

my $dbh = DBI->connect("dbi:Oracle:host=$host;sid=orcl;port=7010",
               $user, $password, { RaiseError => 1, AutoCommit => 0 });