$ perl -e 'my $t="00";print ++$t'
01
$ perl -e 'my $t="00";print $t+1'
1