use strict;
use warnings;

use WebService::CIA;
use WebService::CIA::Source::DBM;

# Get data from a pre-compiled DBM file
# The webservice-cia-makedbm.pl script can make such a DBM
# for you

my $source = WebService::CIA::Source::DBM->new({ DBM => "factbook.dbm" });


# Create the WebService::CIA object, and tell it to use the
# DBM source

my $cia = WebService::CIA->new({ Source => $source });


# Get your data

my $fact = $cia->get("uk", "Population");
print $fact;