You can pass command line arguments by changing @ARGV. It is best to make a local copy.

For example,

inc.pl:

Perl Syntax (Toggle Plain Text)

#!/usr/bin/perl
use strict; # just for kicks
 
for my $item (@ARGV) {
    print "$item\n"; # print what we think are our command line args!
}

#!/usr/bin/perl use strict; # just for kicks for my $item (@ARGV) { print "$item\n"; # print what we think are our command line args! }

tmp.pl:

Perl Syntax (Toggle Plain Text)

#!/usr/bin/perl
use strict; # just for kicks
 
{
    local @ARGV;
 
    @ARGV = (1, 2, 3, 4, "Hello!"); # set our command line args!
 
    eval { require "inc.pl" };
        # the 'eval' catches the exception that occurs when
        # inc.pl fails to return true (which can also be alleviated
        # by ending "inc.pl" with a true value, such as 1; in a
        # line by itself).
}
 
print "\nOriginal Arguments:\n\n";
 
for my $item (@ARGV) {
    print "$item\n";
}

#!/usr/bin/perl use strict; # just for kicks { local @ARGV; @ARGV = (1, 2, 3, 4, "Hello!"); # set our command line args! eval { require "inc.pl" }; # the 'eval' catches the exception that occurs when # inc.pl fails to return true (which can also be alleviated # by ending "inc.pl" with a true value, such as 1; in a # line by itself). } print "\nOriginal Arguments:\n\n"; for my $item (@ARGV) { print "$item\n"; }

If you run:
perl tmp.pl arg1 arg2 arg3
you'll see the output

1
2
3
4
Hello!

Original Arguments:

arg1
arg2
arg3