%echo "#!/usr/bin/env perl"

use HTTP::Tiny;
use JSON qw(from_json to_json);

my $response = HTTP::Tiny->new->get('https://%%domain_name_eth0/.well-known/openid-configuration');

die "Failed!\n" unless $response->{success};

printf $response->{content} . "\n";