well, I added the :

use MIME::QuotedPrint;
[download]

line, and changed:

print tomail "$line\n";
[download]

to use:

$decoded = MIME::QuotedPrint::decode($line);
print tomail "$decoded";
[download]

and still no joy...I have a feeling this is the way to go, but I am not grasping the concept or something...