$ perl -Mv5.14 -e'say( (stat STDIN)[0] )'
60

$ perl -Mv5.14 -e'say( (stat STDIN)[0] )' </dev/null
5