use DBI;

my $user="MYUser";
my $passwd="MYPwd";

#$dbh = DBI->connect("dbi:Oracle:devel", $user, $passwd, {RaiseError=>0, PrintError=>1});
$dbh = DBI->connect("dbi:Oracle:host=orahost.example.com:1521;sid=devel", $user, $passwd, {RaiseError=>0, PrintError=>1});