#!/usr/bin/perl 
use warnings;
use DBI;
use strict;

my $user = 'MyUser;
my $passwd = 'MyPass';
my $dbh = DBI->connect("dbi:Oracle:host=xx.xx.xx.x;sid=MySID; 
             port=1521", $user, $passwd) 
   || die "Database connection not made: $DBI::errstr";

$dbh->disconnect;