#!/usr/bin/perl

use strict;
use warnings;
use File::Copy;

my $buffer = <<EOS;

    Here there be dragons!
EOS

open my $fh, '>', 'foo.txt';

print $fh $buffer;