#!/usr/bin/perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";
use WWW::Getsy;

my $app = WWW::Getsy->new_with_options();

if ($app->authorized) {
    my $response = $app->oauth_request();
    $app->pretty_print($response->content);
}
