perl -Mstrict -w -e'my $f; $f++; print "$f\n"'