use strict;
use warnings;
use Digest::SHA qw( sha256_hex );

my $h = 5472151337331275;
print "\$h = >$h<\n\n";
print sha256_hex($h), "\n";