Pure Perl AnyEvent socket implementation of MySQL client