#!/usr/bin/perl

use Devel::Main 'main';

# ...

# Main routine
main {
	my ($name, $greeted) = @ARGV;
	$greeted //= 'world';
	say_hello($greeted);
};