use warnings;
use strict;
use JSON;
#use vsutils;
use Data::Dumper;
use Ref::Util qw(is_arrayref is_hashref);

my $companyNumber = 'NF001553';
	my $request =  "https://api.company-information.service.gov.uk/company/".$companyNumber."/officers";
	my $curl = `curl -s --user sameAPIKeyAsBefore:""  $request` || die "SOMETHING IS WRONG HERE\n";
	my $decodedJSON = decode_json($curl) || die "this is not JSON\n";
	if (is_hashref($decodedJSON)){
		for (sort keys %$decodedJSON) {
			if ($_ eq 'items'){
				print Dumper($decodedJSON->{$_});
				}
			}
		}