--- /dev/null
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use utf8;
+use Net::Twitter;
+
+my $consumer_key = 'CONSUMER_KEY';
+my $consumer_key_secret = 'CONSUMER_KEY_SECRET';
+
+my $nt = Net::Twitter->new(
+ traits => ['API::REST', 'OAuth'],
+ consumer_key => $consumer_key,
+ consumer_secret => $consumer_key_secret,
+);
+print 'access this url by bot account : '.$nt->get_authorization_url."\n";
+print 'input verifier PIN : ';
+my $verifier = <STDIN>;
+chomp $verifier;
+
+my $token = $nt->request_token;
+my $token_secret = $nt->request_token_secret;
+
+$nt->request_token($token);
+$nt->request_token_secret($token_secret);
+
+my($at, $ats) = $nt->request_access_token(verifier => $verifier);
+
+print "Access token : ".$at."\n";
+print "Access token secret : ".$ats."\n";