Perl 端口扫描的脚本（SYN）

可能脚本会有Bug，我只是用来工作上用一下，具体有没有BUG没测。

项目估计马上结束了。 这个入库的是MYSQL的。原理是先Ping，如果通的话，则加入队列，项目估计马上结束了。