Verify Google User with Perl

eg.pl

# @see https://developers.google.com/identity/sign-in/web/backend-auth
sub verify_with_google {
	my $self = shift;
	my $res = LWP::UserAgent->new()->get(
		'https://www.googleapis.com/oauth2/v3/tokeninfo?id_token='
		. $self->{id_token}
	);
	if ($res->is_success() and
		$res->decoded_content =~ /"aud"\s*:\s*"$self->{client_id}"/
	) {
			return 1;
	} else {
		LOGDIE 'You are not a valid user!';
	}
}