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


csv (in => csv (
        in             => *ARGV,
        blank_is_undef => 1,
        on_in          => sub { $_ //= "NULL" for @{$_[1]}; },
        ),
     );