print "Content-type: text/html\n\n";
open(K,"$htm/krypt.txt");
while(<K>){
s/\$(\w+)/${$1}/eg;
$krypt.=$_;
}
1;