#!/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";


##</code><code>##

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