#!/usr/bin/perl
#

use MIME::Base64;


$data = <<HERE;

This is the data that needs encoding...

with Base64 - for transport...

etc...


HERE



$encoded = encode_base64($data);

print $encoded . "\n\n";



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





__END__