#!/usr/bin/perl -w

use MIME::Base64 qw(decode_base64);

open(FILE, "inputfile") or die "$!";
while (read(FILE, $buf, 60*57)) {
    print decode_base64($buf);
}