parse mime email

[TONY MARQUIS]

I'm trying to read the body and the attachment in a mime message. I keep 
getting the folling error.

Use of uninitialized value in pattern match (m//) at 
/usr/share/perl5/Email/MIME/ContentType.pm line 24.


#!/usr/bin/perl -w

use Net::POP3;
use Email::MIME;

my ($mail_server, $username, $password, $parsed, $decoded) = ("xx", 
"xx", "xx", "", "");

$pop = Net::POP3->new($mail_server)
    or die "Can't open connection to $mail_server : $!\n";
defined ($pop->login($username, $password))
    or die "Can't authenticate: $!\n";
$messages = $pop->list
    or die "Can't get list of undeleted messages: $!\n";
foreach $msgid (keys %$messages) {
    $message = $pop->get($msgid);

  $parsed = Email::MIME->new(@$message);
  $decoded = $parsed->body;
  print "$decoded";

    unless (defined $message) {
        warn "Couldn't fetch $msgid from server: $!\n";
        next;
    }
    # $message is a reference to an array of lines
#    $pop->delete($msgid);
}

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/