raku fs notification test

fill.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Path::Tiny;

my $o = path('/tmp/foo/file')->openw;
$o->autoflush(1);

while (1) {
    print $o '1';
}

watch.raku

use v6.d;

react {
    whenever '/tmp/foo'.IO.watch() -> $item {
    }
    whenever signal(SIGINT) {
        exit;
    }
}