perl -MDBIx::Simple -MData::Dump=pp -e 'pp({
DBIx::Simple->new("dbi:SQLite:dbname=locale.db")->query(q[
SELECT country.code_alpha2, country.name, continent.name
FROM country LEFT JOIN continent ON country.code_alpha2 = continent.country_code
ORDER BY country.code_alpha2
])->map_arrays(0)
})'