#!/usr/bin/env perl
use strictures 1;
use FindBin;
use lib "$FindBin::Bin/../../lib";
use Data::Dump qw(pp);
my $client = Net::OAuth::LP::Client->new;
$client->consumer_key('cts-pika-bot');
$client->login_with_creds;
pp $client;