Geo::Demo::Zipskinny - Census 2000 geographic and demographic data by ZIP code, courtesy of ZIPskinny.com

  use Geo::Demo::Zipskinny;
  my $zip = new Geo::Demo::Zipskinny();

  #get the stats page from zipskinny.com over the network
  my $stats = $zip->get('90232');
  #alternatively, read a local copy
  #my $stats = $zip->parse($html);

  #population of the zip code
  my $pop   = $stats->{'general'}{'population'};

  #fractions 0-1 inclusive
  my $asian = $stats->{'race'}{'Asian'};
  my $k250  = $stats->{'income'}{'200000+'};

  my $asian_count = $pop * $asian;
  my $k250_count  = $pop * $k250;

  use Data::Dumper;
  print Data::Dumper::Dumper( $stats );

Use this for quick access to some ZIP code centric demographic data. ZIPskinny.com claims to have built the site from the Census 2000 data freely available from http://census.gov.

I chose to write this screen scraper after several unproductive hours spent poring over the (copious and dry) census docs and unsuccessfully trying to grok the SF3 files.

Allen Day, <allenday@ucla.edu>

Copyright (C) 2008 by Allen Day

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.