#!/usr/bin/env perl

use strict;
use warnings;

use IO::Socket::SSL;

# create a connecting socket
my $peerhost = 'localhost';
my $peerport = 8000;

my $socket = new IO::Socket::SSL (
    PeerHost => $peerhost,
    PeerPort => $peerport,
    Proto => 'tcp',
    SSL_verify_mode => SSL_VERIFY_NONE,
);    

binmode($socket, ':bytes');
$socket->blocking(0);

for(my $i = 0; $i < 5; $i++) {
    syswrite($socket, chr($i));
    sleep(2);
}