#!/usr/bin/env perl

package MyScript;

use strict;
use warnings;

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

main() if !caller();

exit(0);

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

    greet($user);
}

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";
}

1;