添加perl调系统命令的例子