MIME::Base64 [Perl]

use MIME::Base64;

use warnings;
use strict;

my $orig_string = "This message is going to be encoded in base 64";

my $base64_string  = encode_base64($orig_string);

print "Base64: $base64_string\n";

my $is_this_orig = decode_base64($base64_string);

print "Orig: $is_this_orig\n";