Select Code to Download

$p=shift;$a=shift;i(shift);socket S,2,1,6;bind S,&a($a);listen
S,5;$/=undef;while(@ARGV&&($_="$p $a f".shift)||accept(C,S)&&($_=<C>)&
+&close
C){m!^(.*?) (.*?) ([e-i])([^/]*)/!s&&$1 eq$p&&&$3($2,$4,$');}sub e{ope
+n
...
a{$_[0]=~/:/;pack'CxnC4x8',2,$',split'\.',$`}sub
s{socket X,2,1,6;$w=shift;if(connect X,&a($w)){print X
"$p $_[0] $_[1]/$_[2]";close X}else{undef $k{$p}}}