#!/bin/sh
perl <<'EOS' &
use HTTP::Daemon;
use HTTP::Status;
my $d = HTTP::Daemon->new || die;
print "Please contact me at: <URL:", $d->url, ">\n";
while (my $c = $d->accept) {
    while (my $r = $c->get_request) {
        if (-r $r->url->path) {
            $c->send_file_response($r->url->path);
        } else {
            $c->send_error(RC_FORBIDDEN)
        }
    }
    $c->close;
    undef($c);
}
EOS
httpserver=`ifconfig | perl -nlE 'say $1 if /inet (\S+)/'`
fetch -o - http://$httpserver/etc/passwd