3CH2DFTVNEMFSXYZULOUAJFH2M2RXDPHJJL34TI3TVR34IMTEU7AC
$response = $ua->get('https://api.github.com/user/emails', Accept => 'application/vnd.github.v3+json', Authorization => "token $access_token");
error($c, "Did not get a response from GitHub for email info.") unless $response->is_success;
$data = decode_json($response->decoded_content) or die;
my $email;
foreach my $eml (@{$data}) {
$email = $eml->{email} if $eml->{verified} && $eml->{primary};
print STDERR "$eml->{email}\n";
}