method bark_at (Dog $some_other_dog, $message)
{
    # horrible Perl6y pseudo-code
    print "$.name says to $some_other_dog.name, '$message'\n";
};

##</code><code>##

class DogShow
{
    my Dog @showdogs;
}