use warnings; *STDIN = *DATA; print while ; __DATA__ Hello world Once upon a time... How now brown cow