use strict;
use IO::Socket::SSL;

my $client = new IO::Socket::SSL('localhost:9000');
  .
  .
  .