You may use IO::Select before the recv to determine if yoy can read from the socket.
Example:

my $select=new IO::Select();
$select->add($socket);
if ($select->can_read($timeout)
[download]