在Perl中，可以使用@ARGV数组来传递命令行参数给子程序。@ARGV数组包含了命令行参数的列表，其中$ARGV[0]是第一个参数，$ARGV[1]是第二个参数，依此类推。
下面是一个示例代码，说明如何在Perl子程序中接收和使用命令行参数：
#!/usr/bin/perl
sub my_subroutine {
my ($arg1, $arg2) = @_;
print "arg1: $arg1\n";
print "arg2: $arg2\n";
}
my_subroutine($ARGV[0], $ARGV[1]);
假设将上述代码保存为test.pl，然后在命令行中运行：
perl test.pl hello world
输出将会是：
arg1: hello
arg2: world
在子程序中，可以通过@_数组来获取传递给子程序的参数。使用my ($arg1, $arg2) = @_;将@_数组中的参数分配给相应的变量。这样，就可以在子程序中使用这些参数了。
