sub digest_sha{

use Digest::SHA qw(sha256_hex);
my ($data)=@_;

        $digest1 = sha256_hex($data);
        return $digest1;

}