使用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'