Select Code to Download

my $state = 1;
ioctl( $handle, 0x8004667e, \$state );
...
}
$state = 0;
ioctl( $handle, 0x8004667e, \$state );

my $sel = IO::Select->new($handle);
my $end = time() + $timeout;
...
    last if !$sel->can_read($left);
    my $read = sysread( $handle, $buffer, 100, length( $buffer ) );
}