use strict;
use warnings;
use MIME::Base64 qw(encode_base64);

my $buf;
open(FILE, "$ARGV[0]") or die "$!";
binmode FILE;
while (read(FILE, $buf, 60*57)) {
    print encode_base64($buf);
}
close FILE;