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