Help for this page

Select Code to Download

Select or download this

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) } }'