also da fehlt etwas code, um zu wissen, was schief läuft.

aber eine suche bei uns im wiki nach "IO::Socket" hat mir als ersten treffer SimpleNonBlockingServer geliefert. vielleicht einfach mal ausprobieren, und wenn das läuft, nach deinen vorstellungen erweitern.