#!/usr/bin/env perl

use DB_File;

	dbmopen(%location_cache, "locations", 0644) || die;
print keys(%location_cache);