#! /usr/bin/perl -w

use Shell::POSIX::Select;

select $var[0] @ARGV) { print "$var[0]\n"; }
