&exec_lang;
print "Content-type: text/html\n\n";
open(B,"$htm/begin.txt");
while(<B>){s/\$(\w+)/${$1}/eg;print}
1;