#!/usr/bin/perl
use strict;
use warnings;
use Digest::Nilsimsa;

my $text = "this is a test string. Hopefully it will produce a nilsimsa code.";

my $nilsimsa = Digest::Nilsimsa->new();
my $digest = $nilsimsa->text2digest($text);
print "digest code is : " . $digest . "\n";