#!/usr/bin/env perl

use File::Basename;
my $dir = dirname(__FILE__);
require "$dir"."/lib/common.pl";
require "$dir"."/lib/paginate.pl";

my $document=common->parse();
my $json=paginate->write(paginate->parse($document));
print $json;