Select Code to Download

#!/usr/bin/perl 

...
:
print lc($example), "\n";

OUTPUT :
Enter your choice [y/n] : y
...
Enter your choice [y/n] : n
example
Enter your choice [y/n] : (Please answer 'y' or 'n')