Base64 Encode and Decode in Perl
MIME::Base64 round-trip for binary-safe text encoding.
Author:
chris
// Language: Perl
#!/usr/bin/perl
use strict;
use warnings;
use MIME::Base64;
my $raw = "Perl Code Snippets";
my $b64 = encode_base64($raw, '');
my $dec = decode_base64($b64);
print "$b64\n$dec\n";