###########################################################
use warnings;
use strict;
use MIME::Base64;

my $filename = shift;

open my $file, '<', $filename or die $!;

my $data;

while  (sysread($file, $data, 57 * 17))
{
    print encode_base64($data);
}
###########################################################