Perl modules to read from Current Cost devices (http://www.currentcost.com/) using AnyEvent