#!/usr/bin/perl -w

use MIME::Base64;
while (<STDIN>) {
 print(encode_base64($_));
}
