# greeting.pl
use Greeting;

my $in  = \*STDIN;
my $out = \*STDOUT;

Greeting::say_text($out, Greeting::question());
my $name = Greeting::read_answer($in);
Greeting::say_text($out, Greeting::response($name));