#!/usr/bin/env perl

use strict;
use warnings;

# Script variables
our $Foo = 'bar';

# Subroutines
sub say_hello {

    my ($name) = @_;
	
    print "Hello $name\n";
}

{
    # Main routine
    my ($name, $greeted) = @ARGV;

    $name //= 'Horace!';
    $greeted //= 'world';
    say_hello($greeted);
}