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
...
return;
}
#&av;

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

Name "main::res" used only once: possible typo at ./ave.pl line 6.
Use of uninitialized value $d in print at ./ave.pl line 7.