Select Code to Download

use strict;
use warnings;
...
# https://cabig-kc.nci.nih.gov/Vocab/KC/api.php?action=query&list=allp
+ages&aplimit=max
my $titles = $mw->api( { action => 'query', list => 'allpages', aplimi
+t => 'max' } )
    || die $mw->{error}->{code} . ': ' . $mw->{error}->{details};

2: 403 Forbidden : error occurred when accessing https://cabig-kc.nci.
+nih.gov/Vocab/KC/api.php

use strict;
use warnings;
...
{
    print "Error: " . $response->status_line . "\n";
}