while(read $handle, my $buffer, 57){
	$b64 .= encode_base64($buffer); # default trailer "\n"
}