Perl：接收select count(*) from tables;返回值