view release on metacpan or  search on metacpan

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

use strict;
use warnings;
use autodie ':all';
use Net::OAuth2::Profile::WebServer;
use JSON::XS qw(decode_json);
use Browser::Open qw(open_browser);
use AnyEvent::Plackup;

# Obtain one at Google Cloud Console <https://cloud.google.com/console>.
my $client_secret = do {
    open my $fh, '<', 'client_secret.json';
    local $/;
    decode_json scalar <$fh>;
};