view release on metacpan or  search on metacpan

eg/movielens.pl  view on Meta::CPAN

#!/usr/bin/env perl
use autodie;
use open qw(:locale);
use strict;
use warnings qw(all);

# Requires files available at the
# MovieLens Data Sets: http://www.grouplens.org/node/73

use Algorithm::SlopeOne;
#use Sort::Key::Top qw(rnkeytopsort);

my $slopeone = Algorithm::SlopeOne->new;