#!/usr/bin/perl -w

require "$ENV{'HOME'}/bin/base64.pl";

# uhem, this should be a multiple of 61 !!!  Just do it!!
$read_length = 61 * 128;

$base64_string = "";

while (read(STDIN, $base64_string, $read_length) != 0) {
	print(&base64'b64decode($base64_string));
}