ich bin leider zum testen etwas zu müde. Aber ich glaube, du musst ein newline am zeilenende mitgeben.
die Methode mit print $socket $str kannte ich bisher auch noch nicht.
Aber vielleicht versuchst du es mal mit send()