$ cat > test.txt
Hello
World
^D
$ perl ./prompt.pl < test.txt
You said: Hello
You said: World
$ cat test.txt | perl ./prompt.pl
You said: Hello
You said: World