use strict;
use warnings;
use DBI;

my $dbh = DBI->connect( 'dbi:Oracle:ppp','marto','martossecretpassword') || die "Database connection not made: $DBI::errstr";
$dbh->disconnect();