Either of these:

perl -i -wpe 'print "new text\n" if $. == 1;' file
[download]

perl -MTie::File -we 'tie @L, "Tie::File", "file" or die; unshift @L, 
+"new text";'
[download]

See perlrun for the meanings of the command-line flags.