Help for this page

Select Code to Download


  1. or download this
    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->s
+end_file_response(".",$r->url->path)}}'
  2. or download this
    package HTTP::here;

...
}

1;