执行perl脚本加载数据