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_filename 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{
$_ | }} ( split /,/, $line ) ), '