$ echo |perl -e " *ARGV = *DATA; print while " $ echo |perl -e " *DATA = *ARGV; print while " ECHO is on.