PERLでBASE64

$ perl base64-test.pl | sed "s/^/: /" | cat - base64-test.pl
: it0gjU6NTw==
:
: 岸 康弘
:
:
#
# $Author: kishi $
#

use MIME::Base64;

$encoded = encode_base64('岸 康弘');
print $encoded . "\n";

$decoded = decode_base64($encoded);
print $decoded . "\n";

print "\n\n";