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