--- bin/iselect.pl	2007/10/25 15:50:56	12
+++ bin/iselect.pl	2007/10/25 19:32:24	18
@@ -28,11 +28,17 @@
 $data .= ( rand(10) < 5 ? '{s}' : '' ) . "foobar $_\n" foreach ( 1 .. 300 );
 
 $data .= "\n--EOF--";
+	
+my @lines = split(/\n/, $data);
+#warn "lines = ", dump( @lines );
 
-Term::ISelect->screen(
+my $iselect = Term::ISelect->new({
+	lines => [ @lines ],
+});
+
+$iselect->loop(
 	sub {
 		warn "## ",dump(@_);
 	},
-	split(/\n/, $data),
 );