$ perl -e'print <>' foo.txt
foo

$ echo foo | perl -e'print <>' -
foo

$ echo foo | perl -e'print <>'
foo

$ perl -e'print <>' 'echo foo |'
foo

$ perl -e'print <>' 'cat foo.txt |'
foo