Select Code to Download

binmode INBIN;
my $n_bytes = read(INBIN, $buff, $BUFSIZE);

use MIME::Base64;
use strict;
...
my $base64 = encode_base64(pack('B*', $binary));
    
print "base64 = $base64\n";