# call_another_script.pl
use strict;
use warnings;

do {
	local @ARGV;

	@ARGV = ("Hello", "World!");
	eval { require "script_to_call.pl" };
};

print "\nOriginal args:\n";
for my $arg (@ARGV) {
	print "$arg\n";
}

##</code><code>##

# script_to_cal.pl
use strict;
use warnings;

print "script_to_call.pl args:\n";
for my $arg (@ARGV) {
	print "$arg\n";
}