my $fh = open("test", :w);
spurt $fh, "stuff\n";