#simple HTTPS web server. (must have a ./certs directory with server-key.pem and server-cert.pem or server won't start)
use HTTP::Daemon::SSL;
my $d = HTTP::Daemon::SSL->new(LocalPort => '443') || die $!;
print "HTTPS server running at: ", $d->url, "\n";
while (my $c = $d->accept) {
	while (my $r = $c->get_request) {
	  $c->send_file_response('./index.html');
	}
	$c->close;
	undef($c);
}