#!/usr/bin/perl # A better program that does the same thing # First Name : Bill # Last Name: Jones # ID: 76111 # Assignment #1 # # Filename: FindAverage.pl # # Description: This program will find the average of 3 quiz scores and output the results use strict; # PLEASE NOTE: all programs MUST contain this line # Variable declaration. PLEASE NOTE descriptive variable names!! my $quiz1; my $quiz2; my $quiz3; my $average; # assign the quiz scores $quiz1=90; $quiz2=67; $quiz3=88; # now compute the average $average=($quiz1+$quiz2+$quiz3)/3; print "The average is ",$average,"\n";