#!/usr/bin/perl -Tw
use strict;
use CGI qw(:standard);
print "Content-Type: text/html\n\n";

#####################################

my $employee=param('employee_name');
my $i="";
my $t="";
my @data="";
my $items;
my $lines;


#####################################
#	Read File		    #
#####################################

print "Employee's name is: $employee<p\/>";

open(JOE, "<Files/$employee.txt");

@data = <JOE>;

close (JOE);

#####################################
#		Print File          #
#####################################

$lines=scalar@data/4;

for ($t=1; $t<=$lines; $t++) {

for ($i=1; $i<=4; $i++) {

	$items=shift(@data);
	
	print $items;
}

print "there is a line break here<p\/>";

}

#####################################
print "<p\/>To go Back <A HREF=\"http://127.0.0.1/\">Click here</A>";
#####################################
exit;