c:\@Work\Perl\monks>perl -wMstrict -le
"print average();
 ;;
 sub average {
     if (@_) {
         my @temp = @_;
         my $sum = 0;
         foreach (@temp) {
             $sum = $sum + $_;
         }
         return $sum/@temp;
     }
 }
"
0