Я пытаюсь подключиться к monetdb с кодом perl, он зависает.Я не могу подключиться и не выдает ошибку, чтобы решить ее.Пожалуйста, найдите следующий код,
`#!/usr/bin/perl
use DBI();
use POSIX;
print "\nStart a simple Monet MIL interaction\n\n";
print "MonetDB\n";
my $host = 'XYZ.com';
my $port = '123';
my $user = 'test';
my $password = 'test';
my @ds = DBI->data_sources('monetdb');
print "Data sources: @ds\n";
my $dsn = "dbi:monetdb:host=$host;port=$port;database=testdb";
my $dbh = DBI->connect( $dsn,$user, $password, { PrintError => 0, RaiseError => 1 });
`
Пожалуйста, помогите мне с этим.