#!/usr/bin/perl
# Binary 'cat' für Dateien

use warnings;
use strict;

# print-statements sofort ausgeben
$| = 1;     

my $outfile = '/DeinPfad/DeinDateiname';
my @infiles = qw(
    file1
    file2
    file3
);

open(my $fh_out, '>:raw', $outfile) or die $!;

my $buffer;
my $bufsize = 32768;
my $copied;

for my $file (@infiles) {
    print "Bearbeite $file\n";
    open(my $fh_in, '<:raw', $file) or die $!;
    while ($copied = read $fh_in, $buffer, $bufsize) {
        print $fh_out $buffer;
    }
    close($fh_in) or die $!;
}