BEGIN { print "Enter a line:\n";
        print "You entered: ", scalar(<>) }
print("a\n");
print("b\n");

##</code><code>##

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

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