#!perl -w
use strict;

sub main {
  print "Welcome to my program!\n";
  my ($name, $email) = (
    get_input('Your Name'),
    get_input('Your Email Address')
  );

  say_hello($name, $email);
}

sub get_input {
  my $msg = shift;

  print $msg, ': ';
  chomp( $_ = <STDIN> );
  return $_;
}

sub say_hello {
  my ($name, $email) = @_;
  print "Hello $name, I have sent mail to $email!\n";
}


main();