#! /usr/bin/env perl

# This code is in the public domain
# Written by Robbert Haarman

use strict;
use warnings;

use MIME::Base64;

if($#ARGV < 0) {
	*FILE = *STDIN;
} else {
	open FILE, $ARGV[0] or die "Cannot open $ARGV[0]: $!\n";
}

my $buf;
while($buf = <FILE>) {
	print decode_base64($buf);
}
close FILE;