My perl script reports
select not implemented at script.pl line 60.

I am using perl 5.03 on Posix of HP 3000 MPE/iX

script.pl:line 60 has the following entry:

52: sub read_pending {
53:   local($socket) = @_;
54:
55:   $rin = '';$win = '';$ein = '';
56
57:  vec($rin, fileno($socket), 1) = 1;
58:  vec($ein, fileno($socket), 1) = 1;
59:
60:  $nfound = select($rout=$rin, undef, undef, 0.001);
61:
62:  if ($nfound > 0)
63:  {
64:    return 1;
65:  }
66:
67:  return 0;
68: }

Is there a way around that?
TIA
Raymond