Select Code to Download

sub recv_data{
    if(read_some_data){
...
        return;
    }
}

while(($x, $y) = recv_data){
    ...
}

while(1){
    my($x, $y) = recv_data;
    last unless defined $x;
    ...
}