#!/usr/bin/perl
use IO::Select;
# create typeglobs and add to selector
$output_select = IO::Select->new( *CMD_ERR, *CMD_OUT, *CMD_IN );
# test selector methods
$cnt = $output_select->count();
print "count:     $cnt\n";
@bob = $output_select->handles();
print "list:      @bob\n";
@bob = $output_select->can_write(10);
print "write:     @bob\n";
@bob = $output_select->can_read(10);
print "read:      @bob\n";
@bob = $output_select->has_exception(10);
print "exception: @bob\n";
close(CMD_IN);
close(CMD_OUT);
close(CMD_ERR);