#!/usr/bin/perl

# An even better program that does the same thing

#      First Name : Bill
#      Last Name: Jones
#      ID: 76111
#      Assignment #1
#
#      Filename: FindAverageBetter.pl
#
#      Description: This program will find the average of 3 quiz scores and output the results.
#					The input is from the user

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

print "Enter quiz score 1 ";
$quiz1=<STDIN>;
print "Enter quiz score 2 ";
$quiz2=<STDIN>;
print "Enter quiz score 3 ";
$quiz3=<STDIN>;


#	now compute the average

$average=($quiz1+$quiz2+$quiz3)/3;
print "\nThe average is ",$average,"\n";