package mdlno;
use strict;
use warnings;
use feature 'say';

my $param = shift;

say main() unless caller();

sub main {
    $param //= 'World';
    return 'Hello ' . $param;
}