# Simple output.
while (my ($plugin, $opinions) = each %$ctx) {
    my $ver = undef;
    my $verstr = ($ver = Context->getVersion($plugin)) ?
        "(Version $ver) " : '';
    print "The plugin $plugin ${verstr}says:\n";
    print join '\n', map { "\t$_\n" } @$opinions;
}