Perl tools to get data into Nagios/Graphite