Select Code to Download

my ($min, $max, $sum) = calculate [qw/min max sum/], @list;

my $stats=List::Util->calculate([qw/min max sum/])->of(@list);
print $stats->min, "\n";

calculate [qw/min max sum/], @list;
print List::Util::lastrun->max, "\n";