Select Code to Download

sub ave {
    my $tot;
...
    };
    return @_ ? $find_ave->( @_ ) : $find_ave;
}

sub ave {
    my ($cnt , $tot);
...
        };
    }
}