perl -MHTTP::Daemon -E '$d=HTTP::Daemon->new(LocalPort=>$ARGV[0]||8000);say$d->url;while(my$c=$d->accept){while(my$r=$c->get_request){$c->send_file_response(".",$r->url->path)}}'