程序清單16-3：connectdb2.pl
#!/usr/bin/perl
#
# connect oracle database demo
# 裝載DBI模塊
use DBI;       
# 指定用戶名和密碼
$user = scott;
$password = tiger;
# 第一次連接數據庫
my $dbh1= DBI->connect(‘DBI:Oracle:’, $user, $password)
          or  die “ Can’t  connect  to  database”. $DBI->errstr;
#第二次連接數據庫
my $dbh2= DBI->connect(‘DBI:Oracle:’, $user, $password)
          or  die “ Can’t  connect  to  database”. $DBI->errstr;
exit;