#!c:/perl/bin/perl -w
$|++;

use strict;
use Inline::Files;

open my $fh, '>', 'foo.txt' or die "open failed: $!";
print $fh do { local $/; (<FOO>, <BAR>) };
close $fh;

__FOO__
foo here

__BAR__
bar here