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