#!c:/perl/bin/perl use strict; use warnings; $\="\n"; my($caption,$line,@out,@rec,$x,@output); #opening the csv file $caption=pop(@ARGV); open(FH,$caption) || die("Cannot open $caption file"); #print ''; #print ''; @out="CSV Output
' . $caption . '
"; open(FH1,">gen_try.html"); print FH1 @out; while($line=){ chomp($line) ; @rec = split(/,/, $line); $x=0; print ''; while($x <= $#rec){ print FH1 "\t '; ++$x; } print ''; } print '
$caption
". $rec[$x] . '
';