Perl

a small snippet of code to calculate the average over a stream