>You have a line:
>$answer = <$soc>;
>And it should be:
>$answre = <$socket>;
or maybe $answer = <$socket>;