#!/usr/bin/env perl 

use strict;
use warnings;
use utf8;

use lib 'perllib';
use Greenstone::Site;

my $sites = Greenstone::Site::list;
for my $site (sort keys %$sites) {
    print $site, "\n";
}