Is it possible to connect with API through Perl?

[ensimek]

Hi,
Is it possible to connect with DA API using Perl? Can anyone paste some code, because I'am trying with no success.

Thanks

 

[ensimek]

Wondering why:

$socket = IO::Socket::INET->new(PeerAddr => '127.0.0.1', PeerPort => 2222, Proto => 'tcp', Type => SOCK_STREAM) or die "Couldn't connect";
$socket->send("set_login('admin', 'password.8')\n");
while (defined($line = <$socket>)) {
print $line;
}
close($socket);

is giving Error 404, document not found

 

[scsi]

http://www.directadmin.com/forum/showthread.php?t=26065

 

[ensimek]

Thanks a lot, working well