list_feeds_for.pl

#!/usr/bin/env perl
use Mojito::Model::DB;
use 5.010;

my $feed = $ARGV[0] || 'ironman';

my $db = Mojito::Model::DB->new;
my $feed_docs = $db->collection->find({feeds => $feed})->sort( { last_modified => -1 } );
while (my $doc = $feed_docs->next) {
    say "Title: $doc->{title};  id: $doc->{'_id'}";
}