#!/usr/bin/perl use strict; use warnings; use FixMyStreet::App; use Open311::PopulateServiceList; my $council_list = FixMyStreet::App->model('DB::Open311conf'); my $p = Open311::PopulateServiceList->new( council_list => $council_list ); $p->process_councils;