#file sample.pl

system "noname1.pl first argument";

##</code><code>##

#file HelloWorld.pl

my $arg = shift;

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

##</code><code>##

Hello World. param is first