$ perl -e 'my $x="016"+1; print $x,"\n"'
17
$