<%  
    use XML::XPathScript;
        $t->{turkey}{pre} =  'llama';
        $t->{chicken}{showtag} = 1;
        $t->{chicken}{testcode} = sub { return -1 };
#       $t->{'text()'}{testcode} = sub { $DB::single=1; $_[1]->{pre} = uc $_[0]->string_value; -1  };
%><%= apply_templates() %>