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

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