in reply to default_escape for Template::Toolkit?

At this point, this node is rather historic (look at this post date vs that of the other posts in this node), but I think as this node is a good historic point of question, that it is worth referencing a recent node that answers the questions. How to test all TT2 tags are escaped.
my @a=qw(random brilliant braindead); print $a[rand(@a)];