AxKit: An XML Data File

<!DOCTYPE HTML PUBLIC "html.dtd">
<HTML>
<% 
  $t->{'humps'}{'pre'}        = "<TD>";
  $t->{'humps'}{'post'}       = "</TD>";
  $t->{'disposition'}{'pre'}  = "<TD>";
  $t->{'disposition'}{'post'} = "</TD>";
  $t->{'species'}{testcode}   = sub {
      my $node = shift;
      my $t = shift;
      $t->{pre} = '<TR><TD>' . findvalue('@name', $node) . '</TD>';
      $t->{post} = "</TR>";
      return 1;
  }
%>

<HTML>
<HEAD>
	<TITLE>Know Your Dromedaries</TITLE>
</HEAD>
<BODY BGCOLOR=white>
    <TABLE BGCOLOR="#eeeeee" BORDER=1>
    <TR><TH>Species</TH><TH>No. of Humps</TH><TH>Disposition</TH></TR>

    <%= APPLY_TEMPLATES('/DROMEDARIES/SPECIES')>

    </TABLE>
</BODY>
</HTML>