my $MsgContent = $pop3->top($msg_id, 50);
 my $delete = $pop3->delete($msg_id);
 PrintList($msg_id,@$MsgContent);