#! /usr/bin/perl -w

#--------------------------------------------------------------------------
# Base 64 encode a string.
#--------------------------------------------------------------------------

use MIME::Base64;

$plain = shift @ARGV;
printf ("%s", encode_base64(eval "\"$plain\""));