Agree with haukex that event loops are the way to go.

In case it's of use, this old node contains an example of a simple, complete, event-driven Perl server using IO::Select.