An alternative method is to use the diamond operator (the ARGV filehandle). Set the input filenames in @ARGV, then the opens are taken care of. For example:

open (my $fh, '>', '1_AppendFile.txt') or die "etc: $!";
@ARGV = glob('*.txt');

while (<>) {
    print $fh
}

close ($fh);
[download]