pjs11@R5124614 email_filter $ more ./azure_ad_creds_test.pl
#!/usr/bin/env perl

use strict;
use Azure::AD::ClientCredentialsV2;

our $app_id = '**** MY APP ID ****';
our $secrets_id = '**** MY SECRET ID ****';
our $secrets_value  = '**** MY SECRET VALUE ****';
our $tenant = '**** MY TENANT ID ****';

my $creds = Azure::AD::ClientCredentialsV2->new(
    resource_id => 'https://graph.windows.net/',
    client_id => $app_id,
    secret_id => $secrets_value,
    tenant_id => $tenant,
    scope => '.default',
    );
print $creds->access_token . "\n";