use strict;
use warnings;
use File::Slurp;

my $bigfile = read_file ('file1') . read_file ('file2');
print "$bigfile\n";