in reply to Using PIped-in and invocation arguments in same script
$ 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. [download]