Perl version implementation of munin_pgpool(Python)