Perl - AnyEvent::Ping::TCP - Asynchronous and Synchronous TCP ping functions