#! C:\xampp\perl\bin\perl.exe
#Author: Dylan Ivan Hubbard
#ID: 058577149
use CGI qw(:standard);

printheader();
if(param()) {
  printform()

}


displayform();

sub printheader{
print header;
print start_html("Assignment 3");
print end_html;

print "\n";
print end_form();
}

sub printform {
print start_form();
print p("Score 1:", textfield("s1"));
print p("Score 2:", textfield("s2"));
print p("Score 3:", textfield("s3"));

print p(submit("Submit"));

print end_form();

}


###################
sub Average {

# get total number of arguments passed
$n = scalar(@_);
$sum = 0;

        foreach $item (@_) {
            $sum += $item;

            }

        $average = $sum / $n;



            print p "The average is : $average";



  }


########################
sub displayform{



$SC1 = param("s1");
$SC2 = param("s2");
$SC3 = param("s3");



print start_form();

Average($SC1, $SC2, $SC3);


print end_form();

  }