An error slipt into the code, here is the corrected part ;-)
# Decoding of part 1 (the body) CORRECT ONE
if ($content_type_att_1=~m/base64/i) {
$body=MIME::Base64::decode(trim($body));
} elsif ($content_type_att_1=~m/quoted-printable/i) {
$body=decode_qp($body);
}
# HAPPY PERL CODING
A par
A part of code:
# This part of code can receive a mail on STDIN and parse it
# This mail is composed of 3 parts:
# o) a body (text)
# o) an attached file (a picture in my case)
# o) specifications of the attached file (text, a short description in my case)
#
use strict;
use MIME::Base64;
use MIME: