#! /usr/bin/perl -w

my $VERSION = 1.02;

use blib;

use Shell::POSIX::Select ;

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