maybe try something like

while (recv ($local_client,$e,1,0)) {
    ($local_client->close() && last) if $e eq '';
    print $e; 
}
[download]