sub include_file {
  my $file = shift;
  open(my $fh, "<", $file) or die "Can't open $file: $!";
  my $buffer;
  while (read($fh, $buffer, 1024*1024) {
    print $buffer;
  }
  close $fh;
}

#Example:
include_file("file.txt");