#!/usr/bin/perl -w
use strict;
use HTTP::Daemon::SSL;
use HTTP::Status;

while (1) {
    my $d = HTTP::Daemon::SSL->new(LocalPort=>4443, SSL_key_file=>"ca/cert.key.pem", SSL_cert_file=>"ca/cert.cert.pem") || die "$!\n";

    print "Please contact me at:\n", $d->url, "\n";
    while (my $c = $d->accept) {
        while (my $r = $c->get_request) {
            if ($r->method eq 'GET' and $r->url->path eq "/") {
                # remember, this is *not* recommened practice :-)
                $c->send_file_response("response.txt");
            } else {
                $c->send_error(RC_FORBIDDEN)
            }
        }
        print "get: ! $! @ $@\n";
        $c->close;
        undef($c);
    }
    print "acc: $@\n";
}