使用Perl連接Oracle數據庫可以使用DBI（DataBase Interface）模塊。以下是一個簡單的示例代碼：

use DBI;

my $database = "dbi:Oracle:host=hostname;sid=sid";
my $username = "username";
my $password = "password";

# 連接數據庫
my $dbh = DBI->connect($database, $username, $password) or die $DBI::errstr;

# 執行SQL語句
my $sql = "SELECT * FROM table_name";
my $sth = $dbh->prepare($sql);
$sth->execute() or die $DBI::errstr;

# 獲取結果
while (my @row = $sth->fetchrow_array()) {
    print join(", ", @row), "\n";
}

# 斷開數據庫連接
$sth->finish();
$dbh->disconnect();

在上面的代碼中，$database變量是連接Oracle數據庫的字符串，其中hostname是數據庫主機名，sid是數據庫實例標識符。$username和$password變量是數據庫的用戶名和密碼。你需要將這些值替換為實際的數據庫連接信息。

使用DBI->connect()函數連接數據庫，如果連接成功，返回一個數據庫句柄$dbh，否則報錯并終止程序。

接下來，使用$dbh->prepare()函數準備要執行的SQL語句，然后使用$sth->execute()函數執行SQL語句。如果執行成功，返回一個語句句柄$sth，否則報錯并終止程序。

使用$sth->fetchrow_array()函數獲取查詢結果的每一行數據，通過循環輸出到屏幕上。

最后，使用$sth->finish()函數釋放語句句柄，然后使用$dbh->disconnect()函數斷開數據庫連接。

請注意，為了使用DBI模塊，你需要安裝DBI模塊和適當的數據庫驅動程序。你可以通過CPAN安裝DBI模塊，例如，運行以下命令：

perl -MCPAN -e 'install DBI'