Select Code to Download

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

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