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