#!C:/Perl/bin/perl.exe
use strict;
use warnings;
use Win32;
use Cwd;
use CGI;
use HTML::Template;

main(@ARGV);

sub main
{   
	use Cwd qw(abs_path);
	my $pwd = abs_path();
	my $tempfile = "$pwd/temp/test.txt";
	
	open(FH, $tempfile) || die "Error: $!\n";
	
	my $line;

	while ($line=<FH>)
		{  
	    print "<tr>";
	    my @cells= split /\s+/,$line;
	    foreach my $cell (@cells)
	    {
	       print "<td>$cell</td>";
	    }
	    	print "</tr>\n";
		}
	close FH;
}