$ perl -le " warn 0+ -t STDIN ; warn 0+ -p STDIN "
1 at -e line 1.
0 at -e line 1.

$ echo | perl -le " warn 0+ -t STDIN ; warn 0+ -p STDIN "
0 at -e line 1.
1 at -e line 1.