This works for me and shows all my repos, including private repos.

#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use Pithub;

use constant GH_USER  => 'tobyink'; # Your username!
use constant GH_TOKEN => 'ABCX123'; # https://github.com/settings/toke
+ns

my $gh = 'Pithub'->new(
    user  => GH_USER,
    token => GH_TOKEN,
);

my $repos = $gh->repos->list;
$repos->auto_pagination( 1 );

while ( my $repo = $repos->next ) {
    say $repo->{'name'};
}
[download]