use DBI;
my $db_user = 'Scott';
my $db_pass = 'Tiger';
my $service_name = 'foo';
my $dbh = DBI->connect("dbi:Oracle:$service_name", $db_user, $db_pass);