#!/usr/bin/perl #program name:example6.pl #multiple variables and manipulation $num1=10; $num2=50; $num3=12; $average=($num1 + $num2 + $num3) / 3; print ("the average is $average \n");