#!/usr/bin/perl -w
use strict;

use MIME::Base64;
chomp (my $eingabe = <STDIN>);
my $encode = encode_base64($eingabe);
print $encode;