Select Code to Download

#!/usr/bin/perl -l
# foo.pl
...
my $answer = <STDIN>;

print "Ok, you said $answer";

#!/usr/bin/perl

...
while (<$foo>) {
    print ": $_";
}

$ ./876596.pl
: Hello world. Should I continue? (y/n)
: Ok, you said y
: