P:\test>type junk.dat|perl -e"$_='old value';while(<>){ print};print;"
line 1
line 2
line 3;