#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket::SSL; 

my $client = IO::Socket::SSL->new('localhost:355')or die "error=$!, ssl_error=$SSL_ERROR";

print $client "USER NAME\n";
print $client "PASS PASSWORT\n";

print  $client "ListUsers\n";  		# Beispiel Kommando 1

print  $client "ListDomains\n"; 	# Beispiel Kommando 2

print $client "QUIT\n";			# beenden

print <$client>;			# Inhalt der Sitzung ausgeben.