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