$shapefile = Geo::ShapeFile->new ("tabblock2010_42_pophu");
$shapefile->caching(        shp                => 0); 
$shapefile->caching(        dbf                => 0); 
$shapefile->caching(        shx                => 0); 
$shapefile->caching(        shapes_in_area     => 0);