Select Code to Download

print "Can you read this? ";
my $answer = <STDIN>;
...
{
    print "Then how did you answer?\n";
}