Select Code to Download

use strict;
use warnings;
...
while( prompt "next: " ) {
  print "You said '$_'\n";
}

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

use strict;
use warnings;
...
} else {
  print "piped\n";
}

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