#!/usr/bin/perl
print("Content-type: text/html\n\n");
push @INC, ".";
require "tconfig.pl";
require "tparse.pl";
use RandTexT;
use NewTitle1;
use NewMeta;
use MakeLink;


$file = "keywords/keywordfile.txt";  
open(INF,"$file") ;                     
@grok = <INF>;
close(INF);                

foreach $i (@grok) {

$title =NewTitle1->titler($i);
$meta = NewMeta->newDesc($i);
$keyword = $i;
$keyword2 = "the 2nd keyword";
$keyword3 = "the 3rd keyword";
@links = MakeLink->exportLinks($i);