perl -i.bak -pe 'print "New line here\n" if $. == 1' file