use strict;
use warnings;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
$ua->agent( 'Mozilla/5.0' );

my $url = 'https://cabig-kc.nci.nih.gov/Vocab/KC/api.php?action=query&list=allpages&aplimit=max';

my $response = $ua->get( $url );

if( $response->is_success )
{
	print $response->content;
}
else
{
	print "Error: " . $response->status_line . "\n";
}