perl -pi.bak -e 'print "prepended\n" if $. == 1' file1 file2 ... filen