open my $fh, '<', 'file' or die $!;
binmode $fh;
local $/ = undef;
print encode_base64(<$fh>, '');