use Digest::SHA qw(sha256_hex);

print sha256_hex(5472151337331275);
# 32838cef9e4571b4fa9a5297e265cf860a31774de3ca339878d87238af604a45

#result from other online tools:
# b5951ee4a7cbfdc9df6b1b74de2d1ba865de40796c756cebe88a806c5a7b9e60