[root@vm ~]# cat encoder.pl
use Digest::MD5 qw(md5_base64); my $var='abc@xyz.com';
print md5_base64($var). "==";
[root@vm ~]# perl encoder.pl abc@xyz.com
To+3cvOkA0kGFT8tQljuXA==