Install Digest and Digest::SHA. Don't use Digest::SHA directly. Use the following code instead:

use Digest ();

my $data = ...;

my $hasher = Digest->new('SHA-256');
$hasher->add($data);
$hasher->b64digest();  # or ->digest or ->hexdigest
[download]