Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

#!/usr/bin/env perl
use v5.10;
use strict;
use Paws;
my $client = Paws->service('Support', region => 'us-east-1');
my $checks => $client->DescribeTrustedAdvisorChecks(Language => 'en');
foreach my $check (@{ $checks->Checks }) {
say $check->Category . ' ' . $check->Name;
my $res = $client->DescribeTrustedAdvisorCheckResult(CheckId => $check->Id);
say $res->Result->Status;
}