Select Code to Download

use MIME::Base64;

...
close $fh;

print encode_base64($data, '');

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