#!/usr/bin/perl

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

my ($sock, $s);
$sock = IO::Socket::SSL->new( Listen => 5,
    LocalPort => 443,
    RemoteAddr => 'myip',
    LocalAddr => 'myip',
    Proto     => 'tcp',
    SSL_verify_mode => 0x01,
    Reuse     => 1,
    SSL_key_file => 'certs/keyfile',
    SSL_cert_file => 'certs/certfile.crt',
    SSL_ca_file => 'certs/bundle.ca-bundle'
    );

while (1) {
  while(($s = $sock->accept())) {
  print $s "Content-type: text/html\n\n";
        $s->close(SSL_no_shutdown => 1);
  }
}


$sock->close();