dear Jim, I tried to add lines to read file like this: use Email::MIME;
my $file = '/var/qmail/mailnames/<domain name>/support/Maildir/cur/1487041394.M984019P23084V0000000000000803I0000000000E03878.ABCD.NET,S=3987:2,'; open my $ifh, '<', $file or die "Cannot open '$file' for reading: $!"; local $/ = ''; my $contents = <$ifh>; close( $ifh ); my $mime = Email::MIME->($contents); —> line 13 my @parts = $mime->parts(); for my $npart ( 0..$#parts ) { my $part = $parts[$npart]; my $header = $part->header_obj(); my $htext = $header->as_string(); my $body = $part->body(); print $header; } after I ran its from CLI, I got an error message Undefined subroutine &Email::MIME called at line 13. what does the error mean? > On Feb 15, 2017, at 22:56, Jim Gibson <jimsgib...@gmail.com> wrote: > > I use Email::MIME to parse email messages. After reading the email file into > the variable $text I do this: > > my $mime = Email::MIME->($text); > my @parts = $mime->parts(); > > for my $npart ( 0..$#parts ) { > my $part = $parts[$npart]; > my $header = $part->header_obj(); > my $htext = $header->as_string(); > my $body = $part->body(); > … > } > > > > > > Jim Gibson