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

# Prompt with a default of vanilla.
my $input = prompt( 'Please enter your ice cream preference', 'vanilla' );

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