#! /usr/bin/perl -w

my $VERSION = 1.02;

use blib;

use Shell::POSIX::Select ;

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

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