#!/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";