#!/usr/bin/perl -w

    use WWW::Mechanize;
	use Data::Dumper;
    use Storable;

    $url = 'http://www.census.gov/population/www/documentation/twps0027.html';
    $m = WWW::Mechanize->new();
    $m->get($url);

    $c = $m->content;
	
    print Dumper [ $c ];

##</code><code>##

$VAR1 = [
          '500 Can\'t connect to www.census.gov:80 (connect: Unknown error)
'
        ];