#!/usr/bin/perl
print "Content-type:text/html\r\n\r\n";
open(TXT, ";
close(TXT);
print "Content-type:text/html\n\n ";
print "Text File Contents:
";
#make text file contenets into array read number of lines
foreach $line(@text)
{
#print "$line
";
$counter++;
}
print $counter;
$divider = $counter/2;
$int = int($divider);
print "
";
print $divider;
print "
";
print $int;
#so for example dividein two and round conditional to weighting
#print "";
#read only a certain number of lines from array
for( $i=0; $i<$divider; $i++ )
{
$line[$i]="Element Number ".$i;
print "
$text[$i]";
}
print "