#!/usr/bin/perl

open INFILE, "<infile";
open OUTFILE, ">tmpfile";    # Create your temporary names with care, or die a painful race-condition death.

print OUTFILE qq!Here you print the new stuff.
...
!;

while (<INFILE>) {
 print OUTFILE $_;
}

close INFILE;
close OUTFILE;