auth_twitter

auth_twitter.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Net::Twitter::Lite;
use Term::UI;
use Term::ReadLine;

my $term = Term::ReadLine->new('Tw');
my $consumer_key = $term->get_reply(
    prompt => 'Enter Consumer Key: ',
);
my $consumer_secret = $term->get_reply(
    prompt => 'Enter Consumer Secret: ',
);

my $tw = Net::Twitter::Lite->new(
    consumer_key     => $consumer_key,
    consumer_secret  => $consumer_secret,
    legacy_lists_api => 0,
);

my $pin = $term->get_reply(
    print_me => sprintf('%s', $tw->get_authorization_url),
    prompt => 'Enter PIN: ',
);

my ($token, $token_secret) = $tw->request_access_token(verifier => $pin);

print sprintf("Token: %s\n", $token);
print sprintf("Token Secret: %s\n", $token_secret);