# greeting.pl
print "What is your name?\n";
chomp(my $name = <STDIN>);
print "Hello, $name!\n";

##</code><code>##

# Greeting.pm
package Greeting;

sub say_text {
  my $handle = shift;
  print $handle "$_\n" for @_;
}

sub read_answer {
  my $handle = shift;
  chomp(my $answer = <$handle>);
  return $answer;
}

sub question {
  return "What is your name?";
}

sub response {
  my $name = shift;
  return "Hello $name";
}

1;

##</code><code>##

# 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));