header1,header2,header3,header4,header5

#!/usr/local/bin/perl 
 
use Text::CSV_XS; 
use strict; 
use warnings; 
 
 
print "-------------------------------\n"; 
print "-------------------------------\n"; 
print ".\n"; 
print "..\n"; 
print "Please choose which file you would like parse:\n"; 
$choice=<STDIN>; 
chomp $choice; 
print "-------------------------------\n"; 
print "-------------------------------\n"; 
print "What would you like the table to be titled?\n\n"; 
$tablename=<STDIN>; 
 
our $data= "/opt/home/Xenesis/PM/files/$choice"; 
open(POST, "</opt/home/Xenesis/PM/files/$choice") or die "Could not open '$data'\n"; 
 
my $csv = Text::CSV_XS->new({ sep_char => ',' }); 
while (my $line = <POST>) { 
 
        if ($csv->parse($line)) { 
 
        my @fields = $csv->fields(); 
        print "$line\n"; 
 
        } else { 
                warn "Line unable to be parsed: $line\n"; 
  } 
 }

#!/usr/local/bin/perl 
use strict; 
use warnings; 
use Text::CSV_XS; 
use ActiveState::Prompt qw( prompt ); 
use Readonly; 
Readonly::Scalar my $DIR => defined $ARGV[0] ? $ARGV[0] 
                         :                    "/opt/home/Xenesis/PM/files" 
                         ; 
my @choices = glob $DIR ? "$DIR/*.csv" : "*.csv"; 
Readonly::Hash my %OPT => { 
    must_match => \@choices, 
    trim_space => 1, 
    no_match_msg => "You must choose from available files.", 
    };  
 
my $choice = prompt( join("\n", @choices)."\nChoose: ", %OPT); 
my $tablename = prompt("Enter output tabe header: ");  
 
my $data = "$DIR/$choice"; 
my $csv = Text::CSV_XS->new( { sep_char => ',' } ); 
open my $POST, '<', $choice or die "Could not open '$data': $!";  
 
print "\n\n", $tablename, "\n\n"; 
  
 
while ( my $line = $csv->getline( $POST ) ) { 
        print join( ',', @{$line}[0..5] ), "\n" if $. == 2; 
}