my $param = shift;

##</code><code>##

our $param = shift;

##</code><code>##

say main(@ARGV) unless caller();

sub main {
    my( @args ) = @_;
    GetOptionsFromArray( \@args, ... );
    $param //= 'World';
    return 'Hello ' . $param;
}