Base64 Perl script