Simple Perl based chat Server/Client