#! C:\xampp\perl\bin\perl.exe
use CGI qw(:standard);

printheader();
if(param()) {
  displayform()
}


printform();

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 "Average for the given numbers : $average\n";



  }






sub displayform{



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

print start_form();

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

print "<HR>";

print end_form();

  }