head -1 file.txt | perl -F, -lane 'print join(",",@F);'