#!/bin/sh
perl <<'EOS' &
use HTTP::Daemon;
use HTTP::Status;
use Data::Dumper;
my $d = HTTP::Daemon->new(
  LocalAddr => 127.0.0.1,
  LocalPort => 10080
) || die $!;
while (my $c = $d->accept) {
    warn Dumper($c);
    while (my $r = $c->get_request) {
        warn Dumper($r);
        if (-r $r->url->path) {
            $c->send_file_response($r->url->path);
        } else {
            $c->send_error(RC_FORBIDDEN)
        }
    }
    $c->close;
    undef($c);
}
EOS