/usr/share/doc/libshell-posix-select-perl/examples/pick.plx is in libshell-posix-select-perl 0.05-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | #!/usr/bin/perl -w
#########################################################
# Sample Program for Perl Module "Shell::POSIX::Select" #
# tim@TeachMePerl.com (888) DOC-PERL (888) DOC-UNIX #
# Copyright 2002-2003, Tim Maher. All Rights Reserved #
#########################################################
use Shell::POSIX::Select ;
BEGIN {
if (@ARGV) {
@choices=@ARGV ;
}
else { # if no args, get choices from input
@choices=<STDIN> or die "$0: No data\n";
chomp @choices ;
# STDIN already returned EOF,
# so must reopen for terminal before menu interaction
open STDIN, "/dev/tty" or die ; # UNIX example
}
}
select ( @choices ) { } # prints selections to output
|