my $host	= '192.168.1.15';
my $port	= 12621;			
my $seqid	= "11";
my $uname	= "foobar";
my $pw		= "FoobarPW";
my $protoVer    = 5;				
my $timer	= 10;
my $sock  = IO::Socket::SSL->new(PeerAddr=>$host,PeerPort=>$port,Timeout=>$timer);
$sock->print(qq{<Open seq="$seqid" protocolVersion=$protoVer username="$uname" password="$pw"/>\0});