--- bin/iselect.pl	2007/10/25 16:08:43	13
+++ bin/iselect.pl	2007/10/25 17:24:33	14
@@ -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),
 );