Apparently I’m having too much fun — I’ve posted a perl client for Etsy’s StatsD on Github.

use Net::StatsD::Client;

my $client = Net::StatsD::Client->new();

$client->timing('perl_test.timing',500);
$client->increment('perl_test.inc_int');
$client->decrement('perl_test.decr_int');