高分求教！！！

[freeheard]

我想把两个程序合成一起。但他们的命令行参数的格式不一样
程序1是
use strict;
require 'getopts.pl';
use POSIX;
use Net::RawIP;
use NetPacket::IP qw(:strip);
use NetPacket::TCP;
use NetPacket::UDP;
Getopts('c:d:e:Ff:g:k:p:rs:t:v');

our($opt_c, $opt_d, $opt_e, $opt_f, $opt_F, $opt_g, $opt_k, $opt_p, $opt_r, $opt_s, $opt_t, $opt_v);
程序2是
%RxNames＝ ("0", "index.html", "1", "index.htm", "2", "main.htm", "3", "main.html", "4", "home.html", "5", "home.htm", "6", "default.htm", "7",
"default.html", "8", "welcome.htm", "9", "welcome.html");

use IO::Socket;
use Getopt::Std;
require "scan.file";

getopts("e p s d f F h r l",\%opt)
$opt{'h'}是对其中一项的判断变量
我如何能把程序2的命令行加到程序1的命令行中哪？

[freeheard]

再补充一下：如何使程序二的功能加到程序一中哪？

[kokblack]

看了好几次。。没有人答。UP