Select Code to Download

package Average; # D e c l a r e  a  p a c k a g e
                # A v e r a ge  a  l i s t  o f  g r a d e s
...

1;
#&av;

use warnings;
use Average;

$res = Average::av();
print $res;