#! /usr/bin/perl -w

my $VERSION = 1.02;

use blib;

use Shell::POSIX::Select;

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