my $client = IO::Socket::SSL->new (
		PeerAddr => 'host',
		PeerPort => '123456789',
		Proto => 'tcp',
	) || warn "Problem: " . IO::Socket::SSL::errstr();

my $msg = q~
this_msg_size:X
blablabla
blabla
~;
$client->print($msg);