#! /usr/bin/perl -w

use Shell::POSIX::Select ;

select local $var (1) { print "/$var/\n"; }
