#file HelloWorld.pl

my $arg = shift;

print 'Hello World.';
print " param is $arg" if defined $arg;