sub Send_Receive_SSL {
  my $host = shift;
  my $port = shift;
  my $message = shift;

  my $sock = IO::Socket::SSL->new("$host:$port");  
  $sock->print($message);
  my @response = <$sock>;
  close $sock;

  return @response;
}

print "Sandbox Environment\n";
my @antworten = 
  Send_Receive_SSL($host, $port, 
    qq{<Open seq="150" protocolVersion=$protoVer username="$uname" password="$pw"/>\0}
);