use Digest::SHA1;
$data="It's just data";

$ctx = Digest::SHA1->new;
$ctx->add($data);
print $ctx->hexdigest;