# SSL sandbox
#!/usr/bin/perl -w

################################
use strict;

use IO::Socket;
# user IO::Socket::SSL;

####################################
# parameter

my $host	= '192.168.178.103';
my $uname	= "foobar";
my $pw		= "foobarPW";
my $port	= 12621;

unless ($sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port,Proto => 'tcp', Timeout => 5))

$sock->print("<Open seq=\"150\" protocolVersion=\"31\" username=\"$uname\" password=\"$pw\"/>\0");