使用Perl语言编写的Smartqq机器人