#!perl -w

my $VERSION = 1.02;

use blib;

use Shell::POSIX::Select ( testmode => 'foreach' );

select (1,2) { print "$_\n"; }
