$ perl ./interactive.pl
intereactive
$ cat test.txt | perl ./interactive.pl
piped
$ perl ./interactive.pl < test.txt
piped