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

my $in = open "input.txt";
my $out = open "output.txt", :w;
for $in.lines -> $line {
    $out.say: $line;
}
$in.close;
$out.close;