#!/usr/bin/env perl 

use strict;
use warnings;
use utf8;

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

my $site = Greenstone::Site->new (shift);
$site->exists and die "Site already exists\n";
$site->create and print "Site created\n";