#!/usr/bin/perl
#use strict;
use warnings;
use Text::CSV_XS qw( csv);

my $input_dir = "d:\\perl"; #defining path for input directory
my $output_dir = "d:\\perl\\output"; #defining path for output directory
my $input_file = "$input_dir\\output8.csv"; #defining path for input file
my $output_file = "$output_dir\\output82.csv"; #defining path for output file in which X from time stamp is replaced with 0
print STDOUT "\n removing $output_file if already exists \n";
unlink ($output_file); #removing $output_file if already exists \n";
open (OUTPUT, ">>$output_file") or die "Error 016: Error creating $output_file \n"; #create and output file
open (INPUT, "<$input_file") or die "Error 001: Error locating file $input_file \n"; #open input file

csv (in => csv {
        in             => (<INPUT>),
        blank_is_undef => 1,
        on_in          => sub { $_ //= "NULL" for @{$_[1]}; },
}
    
print OUTPUT;										#print in output file


close (OUTPUT);										#close output file
	close (INPUT);
##</code><code>##

D:\perl>perl test.pl
syntax error at test.pl line 24, near "close"
Execution of test.pl aborted due to compilation errors.