Help for this page

Select Code to Download


  1. or download this
    >perl -wMstrict -le
"my @values = (1, 2, 3, 4, 5);
...
 print qq{average is $average};
"
average is 3
  2. or download this
    >perl -wMstrict -le
"use List::Util qw(sum);
...
 print qq{average is $average};
"
average is 3