use strict;
use DBI;

my $dbname = 'ORCL'; #name of database
# Here is where DBI loads DBD::Oracle
my $dbh = DBI->connect( "dbi:Oracle:$dbname",
                        'scott',
                        'tiger',
                       ) || die "Database connection not made: $DBI::errstr";
$dbh->disconnect;