perl -e"warn scalar readline(STDIN)"
perl5.8.7 -e"warn scalar readline(STDIN)"