my $encoded = Email::MIME::Encodings::encode(base64 => $body);
my $decoded = Email::MIME::Encodings::decode(base64 => $encoded);
If a third argument is given, it is the encoding to which to fall back. If no valid codec can be found (considering both the first and third arguments) then an exception is raised.
DESCRIPTIONThis module simply wraps "MIME::Base64" and "MIME::QuotedPrint" so that you can throw the contents of a "Content-Transfer-Encoding" header at some text and have the right thing happen.
"MIME::Base64", "MIME::QuotedPrint", "Email::MIME".
COPYRIGHT AND LICENSEThis software is copyright (c) 2004 by Simon Cozens and Casey West.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.