Select Code to Download

import java.io.UnsupportedEncodingException;
import java.security.MessageDigest;
...
        byte raw[] = md.digest(); 
        return (new BASE64Encoder()).encode(raw); 
    }

use Digest::SHA;
use utf8;
...
        foreach $val (@z) {
            print $val;                 
        } print "\n";