Select Code to Download

$msg = $pop3->get($msgnum);
# strip header
1 while shift(@$msg) ne "\n";

$msglines = $pop3->get($msgnum) or ...;
$msg = Mail::Internet->new($msglines) or ...;
...
for my $linenum (1..@$body) {
   print "Body line $linenum: $body->[$linenum]\n";
}