I tried to do it in as few lines as possible and something broke, but I can't tell where. Any suggestions? Thanks!

#!/usr/local/bin/perl 
#telnet to port 2323
sub p{print@_}$SIG{CHLD}=sub{wait};socket S,2,2,6;bind S,pack(Snx12,2,
+2323);
listen S,5;while(accept C,S){if(!fork){open(STDOUT,">&C");p"name:";$n=
+substr
<C>,0,-2;$f=fork||exec"tail -f chatlog";open W,">>chatlog";select(W);$
+|=1;p
"[$n here]\r\n";while(<C>){p"$n> $_";}p"[$n gone]\r\n";kill 15,$f;exit
+}}
[download]