#!/usr/bin/perl -w$a = 4;$b = 10;print "Our variables are ", $a, " and ", $b, "\n";$b = ++$a * 2;print "Now, we have ", $a, " and ", $b, "\n";