#!/usr/bin/perl # 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"",:"

\$_=q%c$_%c;eval
";-e$1&&$1=~/cgi$/?eval$i:printf"HTTP/1.0 200$/$/$i",94,94;close}^;eval