#!/usr/bin/perl
require 'base64.pl';
base64decode;
while (<>){$base64_string .= $_};
$enc= &base64'b64encode($base64_string);
#$enc =~ s/\s//g;
print $enc;