perl -we'open FOO, "/dev/null";$x=<FOO>; print scalar $x'
perl -we'open FOO, "/dev/null"; print <FOO>'