use File::Temp qw/tempfile/;
use File::Copy;

my ($fh, $fname) = tempfile();
syswrite $fh, "FIRST LINE\n";
copy($file1, $fh) or die "Error copying: $!";
close $fh;