#!/usr/local/bin/perl
#
# Redir - htm- .pl
#
#

print "Content-Type: text/html\n\n";
$org = 'kf.htm';
open (FILE,"$org") || die "Can't Open $org: $!\n";
@LINES=<FILE>;
close(FILE);
$SIZE=@LINES;
for ($i=0;$i<=$SIZE;$i++) {
   $_=$LINES[$i];
 print $_;
}

