Select Code to Download

use strict;
use warnings;
...
   $x->Counter++;                      print($x->Counter, "\n");  # 5
   $x->Counter += 1;                   print($x->Counter, "\n");  # 6
}