To read a MIME encoded email, you could use a decoder like MIME::Decoder. Try this:

#!/usr/bin/perl

use strict;
use warnings;
use MIME::Decoder;

my $decoder = new MIME::Decoder '7bit' or die "unsupported\n";
$decoder->decode(\*STDIN, \*STDOUT);
[download]