pornhub.pl

use v5.20;
use strict;
use warnings;

package WebService::Pornhub {
    use Moo;
    use Function::Parameters;

    with 'WebService::Client';

    has '+base_url' => ( default => 'http://www.pornhub.com/webmasters' );

    method get_stars() {
        return $self->get('/stars');
    }
};

my $c = WebService::Pornhub->new();
my $r = $c->get_stars();

for my $s (@{$r->{stars}}) {
    say $s->{star}{star_name};
}