#!/usr/bin/perl
use strict;
use warnings;
my @values = ();
use HTML::Table;
my $table = HTML::Table->new(
	-cols		=>	3,
	-border		=>	1,
	-padding	=>	1,
	-head		=> [('Header1','Header2','Header3')],
	);

my $sourceFile = "<C:/Perl-Script/File1.txt";

open my $ifh,$sourceFile or die $!;
open my $ofh, '>', 'C:/Perl-Script/output.html' or die $!;

while (my $row = <$ifh>)
{
	chomp($row);
	$row =~ s/"//g;
	@values = split(',',$row);
	$table ->addRow(@values);
}

$table->print ($ofh,@values);
close $ifh;
close $ofh;