sub calculate_average {

	@_ > 0 or die 'No numbers sent for averaging.';

	my $sum = 0;
	foreach (@_) {
		$sum += $_;
	}

	return $sum / @_;
}