perl脚本中怎么定义一个参数并在后面的sql中执行