#!/usr/bin/perl

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

my $buffer = <<EOS;

    Here there be dragons!
EOS

open my $fh, '<', \$buffer;

copy($fh, "foo.txt");