#! /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 if $#ARGV < 0;
} else {
	open FILE, $ARGV[0] or die "Cannot open $ARGV[0]: $!\n";
}

my $buf;
while(read(FILE, $buf, 60 * 57)) {
	print encode_base64($buf);
}
close FILE;