Webserver

$_=q^use IO::Socket;$s=new IO::Socket::INET(Listen=>5,LocalPort=>8888);s
/./"&#".ord($&).";"/eg;while(select$c=$s->accept){<$c>=~m#/+(\S+)#;$i=$1
!~/\.\./*open(f,$1)?join"",<f>:"<html><code>\$_=q%c$_%c;eval</pre></html>
";-e$1&&$1=~/cgi$/?eval$i:printf"HTTP/1.0 200$/$/$i",94,94;close}^;eval
Webserver