perl -0i -wpe's/^/new line\n/' file
perl -0i -wpe'substr $_,0,0,"new line\n"' file
perl -i -wlpe'print "new line" if 1..1' file