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

my $teststr = "peip:930612";
my $testenc = encode_base64( $teststr );
my $testdec = decode_base64( $testenc );
die "ACK! MIME::Base64 is broke!\n" unless ( $testdec eq $teststr );