sub printit{ print @_; }

my $var = 1;
&printit($var,$var++,$var);

##</code><code>##

my $a = NumberObject->new(5);

print SumNumbers($a, $a->square_me(), $a->double_me());