Select Code to Download

perl -ne '$fh = ( $.==7 ? STDERR : STDOUT ); print $fh $_;' < fred >tm
+p 2>bert; mv tmp fred

perl -ne '$.==7 and system("cat bert");print $_;' < fred >tmp; mv tmp 
+fred