RosettaCodeData/Task/File-input-output/Perl-6/file-input-output-1.pl6

spurt "output.txt", slurp "input.txt";