3.4. Write to a file

Example 3-5. examples/files/write_file.p6

#!/usr/bin/perl6

my $filename = "temp.txt";

if (my $fh = open $filename, :w) {
    print "Your name: ";
    my $name = readline;
    $fh.say($name);
}