use warnings;
use 5.010;

use Net::Twitter;
use Config::Tiny;
use Data::Dumper qw(Dumper);
use File::HomeDir;
use Data::Dumper;

my $nt = Net::Twitter->new(
    ssl      => 1,
    traits   => [qw/API::RESTv1_1/],
    consumer_key        => '',
    consumer_secret     => '',
    access_token        => '',
    access_token_secret => '',
);


my $l = $nt->lookup_users({ screen_name => 'twitter'});

my $tweet = (@{$l->{screen_name}});

print "$tweet\n";