#!/usr/bin/perl
#
# Encode data in base64 format..
# Very quick'n'dirty. Should really stream for large input.
#	- Cameron Simpson <cs@zip.com.au> 27aug2001
#

use strict qw(vars);

use cs::MIME::Base64;

print cs::MIME::Base64::encode(join('',<STDIN>));