Is this a Perl script? If so, please post a minimal version of it. If it's not a Perl script, you'll probably find better advice over at stackexchange or Reddit.
perl -e 'use Crypt::Digest::SHA256 qw[sha256_hex]; print substr(sha256_hex("the Answer To Life, The Universe And Everything"), 6, 2), "\n";'