view release on metacpan or  search on metacpan

eg/google-oauth.pl  view on Meta::CPAN

open_browser $auth->authorize;

my $req = $server->recv;
   $req->respond([ 200, [], [ 'Thank you! Now go back to the console.' ] ]);

my $access_token = $auth->get_access_token($req->parameters->{code});

my $res = $access_token->get('https://www.googleapis.com/oauth2/v1/userinfo');

my $user_info = decode_json $res->decoded_content;

print "Hello, $user_info->{name}.\n";