my $n = ''.0; $n++; print "$n\n";