use DBI;
use DBD::Oracle;
my $host = "192.xxx.x.xx";
my $sid = "mydb";
my $connection = DBI->connect("dbi:Oracle:host=$host;sid=$sid;",'oracle','test12345')
 or die "Connection Error: $!\n";