#!/usr/bin/perl -w

use strict;
use MIME::Base64;

my $string;

die "$0 string\n" if ($#ARGV ne 0);

chomp ($string = $ARGV[0]);

print encode_base64($string)."\n";