#!/usr/bin/perl

#GET PERSONAL INFORMATION FROM NUMBER AND RETURN JSON OBJECT
my $no = "4085065000";
my $url ='https://proapi.whitepages.com/3.1/phone?api_key=76315a08bc9c41f8a9dce31043eda8';

$personal = system('curl', '-s', $url, '-d', "phone=${no}");
#open my $fh, '-|', qw(system('curl', '-s', $url, '-d', "phone=${no}"));

#PARSE THE JSON OBJECT
&getPersonalInfo($personal);



###MY SUB

#!/usr/bin/perl
sub getPersonalInfo{
        use JSON qw( decode_json );


        #OPEN THE FILE
=for comment
        my $file = 'curl.txt';
        open  ( my $fh, "<", $file) || die qq(Couldn't open $file: $!\n);
        @rawdata = <$fh>;
        close $fh;
=cut
        #my ($personal) = @_;
        our personal;
        @rawdata = $personal;

        my $decoded = decode_json(@rawdata);
        print "Phone: " . $decoded->{'phone_number'} . "\n";
        print "First Name: " . $decoded->{'belongs_to'}{'firstname'} . "\n";
        print "Last Name: " . $decoded->{'belongs_to'}{'lastname'} . "\n";
        my @layer1 = @{$decoded->{'current_addresses'}};
        foreach (@layer1) {
                my @layer2 = $_->{'street_line_1'};
                foreach (@layer2) {
                        print  "Address:$_\n";
                        my @layer3 = @{ $_ };
                        foreach (@layer3) {
                            print "$_\n";
                        }
                }
                my @layer2 = $_->{'city'};
                foreach (@layer2) {
                        print  "City:$_\n";
                        my @layer3 = @{ $_ };
                         foreach (@layer3) {
                            print "$_\n";
                        }

                }
                my @layer2 = $_->{'postal_code'};
                foreach (@layer2) {
                        print  "ZIP:$_\n";
                        my @layer3 = @{ $_ };
                         foreach (@layer3) {
                            print "$_\n";
                        }

                }
        }
}
1;