コード #!/usr/local/bin/perl -w use strict; use warnings; use Data::Dumper; use constant OUTPUT_FILE => "union.csv"; my $path1 = $ARGV[0]; my $path2 = $ARGV[1]; eval { die "no argument." unless defined ( $path1 && $path2 ); die "no file ar…