Select Code to Download

use Locale::Codes::Language 'code2language';
use Locale::Codes::Country 'code2country';
...
    print "$_ - ",code2language($lang)//'(unknown)',
        " - ",code2country($terr)//'(unknown)',"\n";
}

#!/usr/bin/env perl
use warnings;
...
            join(" / ",@{ $locales{$terr}{$lang} }), "\n";
    }
}