Select Code to Download

#!/usr/bin/env perl

use strict;
...

    return \%towns;
}

#!/usr/bin/env perl

use strict;
...

    $self->{towns} = \%towns;
}

my $us_towndb = TownDatabase->new(file => 'towns_usa.dat');
my $eu_towndb = TownDatabase->new(file => 'towns_eu.dat');

#!/usr/bin/env perl

use strict;
...
    }
    close $ifh;
}

my $towndb = TownDatabase->new();
foreach my $region (qw[eu us au]) {
    $towndb->loadFile($region . 'towns.dat');
}