#!/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";
}