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