检查上海交通卡余额的 perl 脚本