Here's a neater version for you: 
use strict;
use warnings;
use English;

$OUTPUT_RECORD_SEPARATOR = "\n";

# Open files
my $csv_filename = shift;
open my $csv_fh,  "<", $csv_filename  or die "Cannot open $csv_filenam
+e file: ", $OS_ERROR;
open my $html_fh, '>', 'gen_try.html' or die "Cannot open gen_try.html
+ file: ",  $OS_ERROR;

# Print Heading html using heredoc
print {$html_fh} <<EOHTML;
<HTML>
  <HEAD>
     <TITLE>CSV Output</TITLE>
  </HEAD>
  <body>
  <table border=1 cellspacing=0 cellpadding=5>
      <caption>$csv_filename</caption>
EOHTML

# Read CSV file
while ( my $line = <$csv_fh> ) {
    chomp $line;    # Only for html readability
    my @fields = split /,/, $line;
    print {$html_fh} ( '<tr>', ( map {qq{<td>$_</td>}} @fields ), '</t
+r>' ) or die "Cannot print to html file: ", $OS_ERROR;
}
print {$html_fh} <<EOHTML;
  </table>
</HTML>
EOHTML

close $csv_fh  or die "Cannot close $csv_filename file: ", $OS_ERROR;
close $html_fh or die "Cannot close output file: ", $OS_ERROR;

__END__

[download]


Or to make it a bit more compact 

use strict;
use warnings;
use English;

$OUTPUT_RECORD_SEPARATOR = "\n";

# Open files
my $csv_filename = shift;
open my $csv_fh,  "<", $csv_filename  or die "Cannot open $csv_filenam
+e file: ", $OS_ERROR;
open my $html_fh, '>', 'gen_try.html' or die "Cannot open gen_try.html
+ file: ",  $OS_ERROR;

# Print Heading html using heredoc
print {$html_fh} q{<HTML><HEAD><TITLE>CSV Output</TITLE></HEAD><body><
+table border=1 cellspacing=0 cellpadding=5><caption>$csv_filename</ca
+ption>};

# Read CSV file
while ( my $line = <$csv_fh> ) {
    chomp $line;    # Only for html readability
    print {$html_fh} ( '<tr>', ( map {qq{<td>$_</td>}} ( split /,/, $l
+ine ) ), '</tr>' ) or die "Cannot print to html file: ", $OS_ERROR;
}
print {$html_fh} q{</table></HTML>};

close $csv_fh  or die "Cannot close $csv_filename file: ", $OS_ERROR;
close $html_fh or die "Cannot close output file: ",        $OS_ERROR;

__END__

[download]


Ahhhh much better...
Although the map still looks a bit icky
John

In reply to Re: Better Code Solution needed for the below CSV file parsing and printing in HTML format by Anonymous Monk
in thread Better Code Solution needed for the below CSV file parsing and printing in HTML format by valavanp

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.