Perl version of Nilsimsa code
