>perl script.pl
Enter a line:
foo
You entered: foo
a
b

>perl < script.pl
Enter a line:
You entered: print("a\n");
b