use FindBin '$Bin';
use Pithub;
use Data::Dumper;
use File::Slurper 'read_text';
my $token = read_text ("$Bin/token");
$token =~ s/\s//g;
my $pid = Pithub->new (
    user => '####',
    repo => '%%%%',
    token => $token,
);
my $result = $pid->repos->get ();
print Dumper $result;