#!/usr/bin/perl
use strict;
use warnings;
use Digest::SHA qw(sha256_hex);

my $email = 'test@example.com';
my $email_sha256 = sha256_hex( $email );
print "$email_sha256\n";