急关于perl的，请各位大侠帮帮忙啊

在线等 急，关于perl的，请各位大侠帮帮忙啊!!!!
先在有一个pl文件，单独执行需要输入 “111.PL 222”才可以执行，
但是现在我要把这个文件并到另一个集成的pl文件，作为一个elsif选项，如下：

if （&choose == 1）{
。。。。。。。。。。。。
}

elsif （&choose == 2）{
111.PL中的内容
}

但是这样子是无法执行的，请问我如何才能运行，主要问题就在这个“ 222”上，小弟不知道如何处置

[解决办法]

Perl code

if （&choose == 1）{。。。。。。。。。。。。}elsif （&choose == 2）{  @ARGV=(222);  111.pl中的内容}
[解决办法]
其实，更好的办法是将111.pl中对命令行参数的处理提出来，这个参数很可能是你合成之后的pl的命令行参数，或者，该参数如果在之前的代码中可以得到，可以不使用@ARGV数组，直接给参数赋值。例如：
Perl code
#111.plmy $p1=$ARGV[0];#第一个命令行参数：222#do something