my $z = random(30); print $z->avg;