#!/usr/bin/perl -w

use strict;
use FileHandle;

my $line;
my $sum = 0;
my $count = 0;

my $gradesfh = new FileHandle;
open($gradesfh, "<grades") || die "Couldn't open grades\n";

while($line = <$gradesfh>) {
	chomp($line);
	$sum += $line;
	$count++;
}

my $avg = $sum / $count;

print("The average grade is $avg\n");
printf(STDOUT "The average grade is %.1f\n", $avg);