Select Code to Download

$ perl
Do you want to enable warnings? [y/N] n
...
   You want to loop over the input. Print $_ each time? [y/N]
... 40 questions later ...
Please type your one-liner, ending with a newline