# @vars, @this, @doing, @dink are predefined.
print "<h1>Some beginning HTML up here</h1>\n\n";

for ($x=0; $x<$#vars; $x++) {
   print "interpolate $vars[$x] when they are<p>\n";
   print "between brackets like $this[$x].<p>\n";
   print "<a href="$doink[$x]">$dink[$x]</a>\n";
}

print "<small>The ending HTML down here</small>\n";