#!/usr/bin/perl use warnings; $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";