Perl Concurrent AnyEvent Echo Server