http://www.perlmonks.org?node_id=987723


in reply to Single line insert to the start of a file

perl -MTie::File -e'tie@a,"Tie::File","f2.txt";unshift@a,scalar<>'<f1.txt

In Section Seekers of Perl Wisdom