Select Code to Download

use IO::Prompt::Tiny qw( prompt );

...
my $input = prompt( 'Please enter your ice cream preference', 'vanilla
+' );

print "So....you like $input ice cream.  Freud would love this revelat
+ion.\n";