#! /usr/bin/perl -w

use Shell::POSIX::Select ;

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