使用perl MIME::Base64模块进行base64编码解码
引用root@t225 libexec]# perl -MMIME::Base64 -e 'print encode_base64("123")'
MTIz
[root@t225 libexec]# perl -MMIME::Base64 -e 'print decode_base64("MTIz")'
123
[root@t225 libexec]#