Publish
file: potd.p6 1: #!/usr/bin/env perl6 2: 3: use File::HomeDir; 4: 5: sub MAIN ( $file, Int :$offset = 1, Bool :$local ) { 6: die "No such file $file" unless $file.IO.e; 7: 8: my $date = Date.today + $offset; 9: 10: my $ok = prompt "Creating POTD for $date, ok? "; 11: exit if $ok ~~ m:i/^n/;
IO is for file stuff (it seems)