rewrite pop_svr with IO::Socket according by pop3 protocal
little fix on pop_svr