my $wfh = open("in.txt", :w);
spurt $wfh, "a\n";
$wfh.close;