Select Code to Download

$printnumber += 1;

$printnumber++;

#!/usr/bin/perl -w
{
...
print "still an object (adding 2):";
inc $printnumber 2;
print $printnumber;