Implementation of lcos CR in Perl.