Select Code to Download

#!/usr/bin/env perl

...
    syswrite($socket, chr($i));
    sleep(2);
}

#!/usr/bin/env perl

...
}

TestServer->run(port => 8000);

2015/04/09-10:58:23 TestServer (type Net::Server) starting! pid(7799)
Resolved [*]:8000 to [::]:8000, IPv6
...
...doing something else...
GOT 4
Done.

yes '' | openssl req -x509 -newkey rsa:2048 -keyout key.pem -out cert.
+pem -days 10 -nodes

#!/usr/bin/env perl

...
    syswrite($socket, chr($i));
    sleep(2);
}

#!/usr/bin/env perl

...
                proto => 'ssl',
                SSL_key_file => 'key.pem',
                SSL_cert_file => 'cert.pem');

2015/04/09-11:04:03 TestServer (type Net::Server) starting! pid(8551)
Resolved [*]:8000 to [::]:8000, IPv6
...
GOT 3
GOT 4
Done.