#!/usr/bin/perl

use strict ;
use warnings ;

use Text::CSV ;
use Getopt::Long qw(GetOptions) ; 

my $inputFile = '' ;
my $outputFile = '' ;
my $csv = Text::CSV->new ();

GetOptions(	'file:s' => \$inputFile,
		'out:s' => \$outputFile,
	  ) or die("Error in command line arguments\n") ;

open(my $data, '<:encoding(utf8)', $inputFile) or die "Could not open '$inputFile' \n" ;
open(my $out, '>:encoding(utf8)', $outputFile) or die "Could not open '$outputFile' \n" ;

while (my $fields = $csv->getline( $data ))
{
    splice @$fields, 4, 2 ;
    $csv->print($out, $fields) ;
    print $out "\n" ;
}

close $data ;
close $out ;