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