sub get_response {
  my ($res) = @_;
  die "Required argument missing" unless $res;
  if ($res =~ /Hello/i) {
    return "Hello to you.\n";
  } else {
    return "Huh?\n";
  };
};

print get_response(@ARGV);