/usr/local/bin/perl -w

use strict;
use SemWeb::Client;
use SemWeb::Hacks qw(defineNS);

defineNS(cw=>"http://www.w3.org/2002/05/cowork/v1);

my $client = new SemWeb::client;
my $meeting = $client->getFocus();

foreach my $item ($meeting->getAll(&cw::subcontext)) {
  ...     use xslt?    ...
}