(C) 2003, Tim Maher       1-11       www.TeachMePerl.com
pick
Source Code
.
.

 #! /usr/bin/perl -w
 use Shell::POSIX::Select ;
 .
  # Print selected arguments to output
 select ( ) { }
 .
  # Above defaults to:
  # select ( @ARGV ) { print "$_\n"; }