sot.pl

use strict;
use warnings;

use constant RAT => '...';

use HTTP::Tiny;
use JSON::PP;

my $ua = HTTP::Tiny->new;

for (qw(AthenasFortune GoldHoarders MerchantAlliance OrderOfSouls ReapersBones)) {
    my $res = $ua->get(
        "https://www.seaofthieves.com/api/ledger/$_",
        { headers => { Cookie => 'rat=' . RAT } },
    );

    die $res->{content} unless $res->{success};

    my $json  = decode_json $res->{content};
    my $rank  = $json->{user}{rank};
    my $total = $json->{Bands}[-1]{Results}[-1]{Rank};

    printf "%16s %4.1f%% %5d/%d\n", $_, 100 * $rank / $total, $rank, $total;
}