#!/usr/bin/env perl

use strict;
use warnings;

use IO::Prompt::Tiny qw(prompt);

my $user = prompt("What is your name? ");

greet($user);

exit(0);

sub make_hello {
    return "Hello";
}

sub make_subject {
    return shift;
}

sub greeting {
    my $who = shift;
    return make_hello() . ' ' . make_subject($who)
}

sub greet {
    print greeting(shift), "\n";
}