摘要： ```perl#!/usr/bin/perluse strict;use warnings;use DBI; # 全局变量，用于控制脚本的执行模式# 当 $run_at_server 为 1 时，脚本会连接到 MySQL 数据库并执行 SQL 语句# 当 $run_at_server 为 0 时，脚 阅读全文