a Perl POE Server Bot