#!/usr/bin/perl -w

use strict;
use warnings;
use MIME::Base64;

my $binary = "";

# Create binary data
for (my $i = 0; $i < 256; $i++) {
    $binary .= chr($i);
}
my $blen = length($binary);
print "Binary data is $blen bytes\n\n";

# Encode the data so that it's printable
my $enc  = MIME::Base64::encode($binary);
my $elen = length($enc);
print "Encoded data is $elen bytes:\n";
print "$enc\n";

# Decode the data back to binary, compare against original
my $dec  = MIME::Base64::decode($enc);
my $dlen = length($dec);
print "Decoded binary is $dlen bytes\n";
if ($dec eq $binary) {
    print "Decoded data matches original\n";
} else {
    print "Decoded Data MISMATCH with original\n";
}