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;