Help for this page
use MIME::Base64; ... close $fh; print encode_base64($data, '');
open my $fh, '<', 'file' or die $!; binmode $fh; local $/ = undef; print encode_base64(<$fh>, '');