gistfile1.txt

#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple;
use JSON;
use Data::Dumper;

sub get_skillz {
    my $query = shift;
    my $json = get( "http://www.linkedin.com/ta/skill?query=$query" );
    my $data = decode_json( $json );
    return $data;
}

my @skills = ();
my $initialism = 'aaa';

select(STDERR);
$|++;

while ( $initialism le 'zzz' ) {
        print STDERR "Fetching $initialism\r";
        my $data = get_skillz( $initialism );

        push @skills, map { $_->{'displayName'} } @{ $data->{'resultList'} };

        $initialism++;
}

print STDERR "All done, REJOICE\n";

print encode_json(\@skills);