Interesting, this code compiles and runs, but the data isn't copied.

#!/usr/bin/perl

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

my $buffer = <<EOS;
    Here there be dragons!
EOS

copy(\$buffer, "foo.txt");
[download]

Update:

My bad. The Copy chokes on a non-filehandle.