(C) 2003, Tim Maher       1-8       www.TeachMePerl.com
Syntax
Adapted from Shell, Inspired by Perl
.
use Shell::POSIX::Select ;
.
select            ()      { }       # Form 0
select            ()      { CODE }  # Form 1
select            (LIST)  { CODE }  # Form 2
select       $var (LIST)  { CODE }  # Form 3
select my    $var (LIST)  { CODE }  # Form 4
select our   $var (LIST)  { CODE }  # Form 5
select local $var (LIST)  { CODE }  # Form 6

if variable omitted, localized $_ used
if LIST omitted, @ARGV (or @_)
if CODE omitted,  print "$loopvar\n"