Bitte prüfen ob das Socket erstellt werden konnte. Und dann ist es so, daß Du mit print $socket 0x45, 0x53, usw keine Bytes sondern Ziffern in das Socket schreibst, also Dinge die der Empfänger sicher nicht versteht.

Richtig wäre also, mit pack "C", 0x45; die zu sendenden Bytes zu erzeugen die dem Hexwert entsprechen.

Und "funktioniert nicht" ist auch keine Fehlermeldung. MFG