From
DBI DBD::Oracle and OraPerl FAQ:
"This example connects to two databases simultaneously:"
use strict;
use DBI;
my $dbh1 = DBI->connect( "dbi:Oracle:ORCL1", "scott", "tiger" ) or die
+ "Can't connect to 1st Oracle database: $DBI::errstr\n";
my $dbh2 = DBI->connect( "dbi:Oracle:ORCL2", "scott", "tiger" ) or die
+ "Can't connect to 2nd Oracle database: $DBI::errstr\n";
$dbh1->disconnect or warn "DB1 disconnection failed: $DBI::errstr\n";
$dbh2->disconnect or warn "DB2 disconnection failed: $DBI::errstr\n";