Hi goff,

I ran the following code:

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

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

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

And recieved the following output:

digest code is : febb4ebd89c689ae487d366dfc1f398ada1efdf9f4d68c3b65b6d4fd6844ecfe

The differences between the code you posted and mine is the my $nilsimsa = Digest::Nilsimsa->new(); line. If, as per the documentation, I use my $nilsimsa = Digest::Nilsimsa; I get the following error:

Bareword "Digest::Nilsimsa" now allowed while "strict subs" in use at 
+digest.pl line 8
Execution of digest.pl aborted due to compliation errors.
[download]

I am using Strawberry Perl, v5.8.8 on Windows 2000 professional.

Martin