reopen on eof

use v6;
loop {
    my $fh;
    my $s = $*IN.Supply;
    if $*IN.eof {
        say 'reopen';
        $*IN.close;
        $*IN = open($*IN.path, :r);
    }
    react {
        whenever $s -> $buf {
            print $buf;
            LAST {
                say 'got eof';
            }
        }
    }
}