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