使用perl管理SQL SERVER。大量脚本实例