[quote]root@t225 libexec]# perl -MMIME::Base64 -e 'print encode_base64("123")' MTIz # perl -MMIME::Base64 -e 'print decode_base64("MTIz")' 123 #[/quote]