Perl modules for mock TCP server using AnyEvent