Select Code to Download

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

C:\inetpub\foto_root>test_binmode.pl
binmode() on unopened filehandle at C:\inetpub\foto_root\test_binmode.
+pl line 15, <IMAGE> line 1.
...
yxV669JBpWOm9iflsw4PPuH19M39fAjGaXS9L5lTHpFLOgdiHgnWpHVBnhBcG1Ey7lUnsX
+5m6E6a
7QvIKnZ4L/a6MrbXSao8wtaijRod4XP87X2ZlXqDVetDfQoJPWW2sWnVUfMUFeIYK3RVY+
+1kUolC
ArLfmXFpHX/GYvYsydAm5e77Z9l6nO0v2Y3GjeNilVltW7uA0m1l42/tA7it9WBp2YC0RP
+w86c8+