diff --git a/scratch/perl/kiokupipe/test.pl b/scratch/perl/kiokupipe/test.pl
index 45578b0..85d12f1 100644
--- a/scratch/perl/kiokupipe/test.pl
+++ b/scratch/perl/kiokupipe/test.pl
@@ -26,4 +26,7 @@
     my $map2 = $kioku->lookup('map');
 
     warn Dumper($map2);
+    warn Dumper( [ $map2->take(3) ] );
+    warn Dumper( [ $map2->While(sub { $_[0] < 8 })->take(10) ] );
+    warn Dumper($map2);
 }