Select Code to Download

if ($fh == $lsn) { # this does not do what you think it does

$inbuffer{$fh} .= $buf; # Hash keys are stored as STRINGS.
...
...
                                # It is no longer a reference
  handle($client); 
}