perl -pe 'BEGIN { print "ID"; }' /tmp/test.dat