use DBI;

my $usrname = 'DB_TEST';
my $passwd = 'start123';
my $url = 'jdbc:oracle:thin:@dbtest.example.com:1521:devel';

my $connection = DBI->connect("dbi:JDBC:hostname=localhost:9001;url=$url",$usrname,$passwd)or die "Could not connect!\n";