put that in your pipe and smoke it.

gistfile1.txt

timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
919
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
885
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
861
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
827
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
805
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
753
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
712
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
922
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
891
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
866
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
852
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
835
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
831
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
799
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
792
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
785
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
776
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
787
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
755
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
720
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
721
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
867
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
922
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
914
timo@schmand ~> perl6 -e 'my $a = 0; Supply.interval(0.001).tap({$a++}); sleep 1; say $a'
907