#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;
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;
}