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