`perl -pi -e "print '@headinfo ' if \$. == 1" $file`;