Select Code to Download

sub average {
    if (@_) {
...
        return undef;
    }
}

sub sum { my $sum; $sum += $_ for @_; $sum }
sub avg { @_ ? sum(@_)/@_ : undef }