perl -MHTTP::Daemon -e '$d = HTTP::Daemon->new(LocalPort => 8000) or  die $!; while ($c = $d->accept) { while ($r = $c->get_request) {     $c->send_file_response(".".$r->url->path) } }'