while (1) {
    my $req;
    $socket->recv($req, 1000);
    last if ($req eq "");
    ...
}