Select Code to Download

use Net::POP3;
...

my $delete = $pop3->delete($msg_id);

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