#!/usr/bin/perl -w

use strict;

use Digest::Nilsimsa;

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

my $nilsimsa = Digest::Nilsimsa;

my $digest = $nilsimsa->text2digest($text);

print "digest code is : " . $digest . "\n";