Oracle Perl DBI连接错误ORA-21561:OID生成失败

我正在运行一个Perl脚本，我看到了这个错误消息

#!/usr/bin/perl
use DBI;

my $host = 'server';
my $user = 'user';
my $pwd = $ENV{'Login'};

my $driver = "Oracle";
$dsnslam = "DBI:$driver:host=$host;service_name=vps;port=1525";
$dbhslam = DBI->connect($dsnslam, "$user", "$pwd") || die "connect failed: ";

我可以做Tnsping和sqlplus，没有任何问题

我正在从Windows运行脚本，远程数据库是RHEL上的Oracle 19c。我还在Windows etc hosts文件中添加了一个条目，这也没有帮助

# localhost name resolution is handled within DNS itself.
#   127.0.0.1       localhost
#   ::1             localhost
127.0.0.1   localhost   WindowsServer.domain    WindowsServer

---

任何帮助都将不胜感激。

显示您的代码（DBI处的连接参数->连接语句）添加了代码。谢谢。你看到了吗？谢谢杰夫，我确实看到了，我正在使用tns选项并传递变量。仍然失败。显示您的代码（DBI->connect语句中的连接参数）添加了代码。谢谢。你看到了吗？谢谢杰夫，我确实看到了，我正在使用tns选项并传递变量。仍然失败。

# localhost name resolution is handled within DNS itself.
#   127.0.0.1       localhost
#   ::1             localhost
127.0.0.1   localhost   WindowsServer.domain    WindowsServer