my $encodedString = "AUTH PLAIN "
. encode_base64(join("\0", $auth->{user}, $auth->{user}, $auth->{password}), $CRLF);
my $decodedString = decode_base64($encodedString);
warn("decodedString '$decodedString'");
####
AUTH PLAIN d2VibWFzdGVyXEBid21qY20udXMAd2VibWFzdGVyXEBid21qY20udXMAd21ANDA5MTNXTQ==
####
DÇ<°5Ý•‰µ…ÍÑ•Éq‰Ýµ©´¹ÕÌÝ•‰µ…ÍÑ•Éq‰Ýµ©´¹ÕÌݵ ÐÀäÄÍ]4