use Text::CSV_XS qw( csv );

csv( in => "a.csv", out => "b.csv", ... );