The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
use common::sense;
use Rhetoric;
use Getopt::Long;

Getopt::Long::Configure('no_ignore_case');
GetOptions(
  \%_,
  "help|h",
  "quiet|q",
  "output|o=s",
);

say "storage";
my $blog = Rhetoric::storage('File');
$blog->install;
say "rh import-themes";
system("rh import-themes");
say "rh psgi";
system("rh psgi > rhetoric.psgi");