Select Code to Download

$answer = <$soc>;

$answre = <$socket>;

while ($new_sock = $listener->accept()) 
#now you just stuck in this loop
...
    }
    close FILE;
}