use IO::All;

my $buffer = <<EOS;

    Here there be dragons!
EOS

io("foo.txt") < $buffer;