#!/usr/bin/env perl use utf8; ############################################################################### # This program demonstrates how to prompt the user for input. # # Copyright © 2020 Richard Lesh. All rights reserved. ############################################################################### use Utils; use strict; use warnings; MAIN: { binmode(STDOUT, ":utf8"); binmode(STDERR, ":utf8"); binmode(STDIN, ":utf8"); my $name; $name = Utils::prompt("What is your name? "); my $favoriteColor; $favoriteColor = Utils::prompt("What is your favorite color? "); print Utils::messageFormat("Hello, \{0:s\}! I like \{1:s\} too!", $name, $favoriteColor), "\n"; }