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