Sounds like you really want to merge two files..based on your copy text1 + text2 example

open(TEXT1,">>text1.txt") or die "$!";
open(TEXT2,"<text2.txt") or die "$!";

while(<TEXT2>)
{
   print TEXT1 $_;
}
close(TEXT2);
close(TEXT1);
[download]

open (IFILE1,"Filename1.txt") or die "Can't open file1";
open (IFILE2,"Filename2.txt") or die "Can't open file2";
open (OUTFILE,">OutputFile.txt") or die "Can't open file for writing";

while (<FILE1>){print OUTFILE $_}
while (<FILE2>){print OUTFILE $_}

close IFILE1;
close IFILE2;
close OUTFILE;

Should also have said that this combines them into a third file - a nice cautious option!

your code is certainly correct (even if it doesn´t use strict;), but aatlamaz states that he couldn't handle newline problem. That leads me to the assumption, that at least one of the files has no newline at its last line. Thus it must be added.
So i changed above code to handle that (while also adding argument handling and support for more than two files):

use strict;

my $outfile = pop @ARGV   or die "No outfile!\n";

my @infiles = @ARGV       or die "No infile(s)!\n";

open OUTFILE, ">$outfile" or die "Cannot open $outfile!\n";

for ( @infiles )
{
        open (INFILE, $_) or die "Can't open $_!\n";

        while ( <INFILE> )
        {
                chomp;
                print OUTFILE "$_\n";
        }

        close INFILE;
}

close OUTFILE;
[download]



The script can be called like this:

shell: perl script.pl file1 file2 fileN outfile
[download]


holli, regexed monk

Appreciate you all.

use strict;

my $file1 = shift(@ARGV);
my $file2 = shift(@ARGV);

# open the first file, slurp the contents into 
# $file1_contents
open(FILE1, "<", $file1) or die "Whoops!";
my $file1_contents = <FILE1>;
close(FILE1);

# open the second file in append mode, print
# the contents from file1 into file2
open(FILE2, ">>", $file2) or die "Whoops!";
print FILE2 $file1_contents;
close(FILE2);
[download]