#!/usr/bin/perl
#require 'base64.pl';
use MIME::Base64;
base64decode;
while (<>){$base64_string .= $_};
print &base64'b64decode($base64_string);