#!/usr/bin/perl

# a very poorly written program


$a=90;
$b=67;
$c=88;
$d=($a+$b+$c)/3;
print "The average is ",$d,"\n";