#!/usr/bin/perl -w
######################################################################
# base64.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use MIME::Base64;

                            # Base64 encoding
$encoded = MIME::Base64::encode($data);

                            # Base64 decoding
$text = MIME::Base64::decode($encoded);