#! /usr/bin/perl -w

use Shell::POSIX::Select ;

sub select_in_sub {
 	select $var () { print "$var\n"; }
}

@ARGV=1..3;
select_in_sub qw(a b) ;
