说明：  perl脚本：抓取sina首页的要闻，然后发送到指定的邮箱。每隔60秒，抓取一次，如果头条新闻更新则立即推送，否则1小时推送一次。
(perl script: crawl sina home highlights, and then sent to the specified mailbox. Every 60 seconds, grab one, if it is immediately pushed headline news updates, or one hour push once.)