#!/usr/bin/env perl
use 5.14.1;
use warnings;
use utf8;
use open qw/:std :utf8/;
use Twitter::API;
my $client = Twitter::API->new_with_traits(
traits => [ qw/ApiMethods/ ],
consumer_key => $ENV{CONSUMER_KEY},
consumer_secret => $ENV{CONSUMER_SECRET},
access_token => $ENV{ACCESS_TOKEN},
access_token_secret => $ENV{ACCESS_TOKEN_SECRET},
);
my $r = $client->verify_credentials;
say "$$r{screen_name} is authorized";
my $mentions = $client->mentions;
for my $status ( @$mentions ) {
say $$status{text};
}