#!/usr/bin/env perl
use strict;
use warnings;

use WebService::Hooktheory;

my $key = shift || die "Usage: perl $0 1234567890abcdefghij [end_point] [query]\n";
my $ep  = shift || '/trends/nodes';
my $q   = shift // '4,1';

my $ws = WebService::Hooktheory->new( activkey => $key );

my %query;
$query{query} = { cp => $q } if $q;

my $r = $ws->fetch( endpoint => $ep, %query );
use Data::Dumper; warn Dumper $r;
