おあー

use strict;
use warnings;
use lib "$ENV{HOME}/perl5/lib/perl5";
use Net::Twitter 3;
use Perl6::Say;

my $t = Net::Twitter->new(
    traits => [ 'Legacy', 'OAuth' ],
    consumer_key => '*****',
    consumer_secret => '*****',
);
say $t->get_authorization_url;

chomp (my $pin = <STDIN>);

my ($access_token, $access_token_secret, $user_id, $screen_name) = $t->request_access_token(verifier => $pin);

say "$access_token $access_token_secret $user_id $screen_name";

sub gracefully;

gracefully exit;