#!/usr/bin/perl -w$a = 6 * 9;print "Six nines are ", $a, "\n";$a = $a + 3;print "Plus three is ", $a, "\n";$a = $a / 3;print "All over three is ", $a, "\n";$a = $a + 1;print "Add one is ", $a, "\n";