......
.....
....
send($s_sock,$packet,0,$dest);
$read = new IO::Select();
$read->add($r_sock);
($return)=IO::Select->select($read,undef,undef,5);
                                                                                                                            if ($return)
{
recv($r_sock,$buff,256,0);
........
.....
...
}