#! perl -slw
use strict;
use TGrep;
use Time::HiRes qw[ time ];

our $N //= 1e3;

my $start = time;
my @a = tgrep{ $_ % 5 == 0 } [ 1..$N ];
printf "Took %.9f seconds\n", time() -$start;
print scalar @a;

__END__
C:\test>t-tgrep -N=1e5
Took 3.830074787 seconds
20000