I got out of the hospital yesterday, and I was so happy I decided to write a Perl6 poem. I tried something simple that looked like it's going to work, from Exegesis 2-6. Well, it doesn't run with perl6 that comes with parrot 0.0.13, so I guess I used unimplemented features or something, but I'll post the poem anyway, as a perl programmer's peep into the future...

my $body is closed;
my $feeling is good but uncertain;

let me := my $soul;

given $me {
    'happy' when $operation but true;
    'content' when $operation;
}
[download]

Update: fixed the 'when'. It was only here, not in my orig. code.