Obtain twitter OAuth API keys

twitter_oauth.pl

#!/usr/bin/perl
use strict;
use warnings;

use CGI;
use Data::Dumper;
use Net::Twitter::Lite;

my $consumer_key    = '<your consumer key>';
my $consumer_secret = '<you consumer secret>';
my $callbackurl = '<your callback url>';
my $nt = Net::Twitter::Lite->new(
    consumer_key    => $consumer_key,
    consumer_secret => $consumer_secret,
);
my $url = $nt->get_authorization_url(callback => $callbackurl);

my $q = CGI->new;
my $request_token = $q->param('oauth_token');
my $verifier      = $q->param('oauth_verifier');
my $cookie;
if ($verifier) {
    print $q->header();
    print $q->start_html(-title=>"testing OAuth1a");
    my %cook = $q->cookie('sess');
    $nt->request_token($cook{token});
    $nt->request_token_secret($cook{token_secret});
    my @access_tokens = $nt->request_access_token(verifier => $verifier);
    print Dumper \@access_tokens;
    print $q->end_html();
}
else {
    $cookie = $q->cookie(-name => 'sess', -value => {
        token        => $nt->request_token,
        token_secret => $nt->request_token_secret,
    });
    print $q->redirect(-uri => $url, -cookie => $cookie);
}