my $bits = "";
vec($bits,fileno(MySocket),1)=1;
select($bits,undef,undef,3);
if(vec($bits,fileno(MySocket),1)){
  $MySocket->recv($text,1000)
}
else{
  die("Time out!\n");
}