perl -mHTTP::Daemon -e '$d=new HTTP::Daemon(LocalPort=>12345);while ($c=$d->accept){sleep 10;$c->send_file_response("index.html")}'