[HaBo]

use IO::Socket::INET;
use IO::Select;

my $socket = IO::Socket::INET -> new(
   proto => 'tcp',
   listen => SOMAXCONN,
) or die $!;

my $select = IO::Select -> new( $socket );

while( 1 ){
   foreach( $select -> can_read ){
      if( $_ == $socket ){
         $select -> add( $_ -> accept );
      }
      else {
         # client-anfrage bearbeiten...
      }
   }
}

use IO::Socket::UNIX;
use IO::Select;

my $socket = IO::Socket::UNIX -> new(
   type => SOCK_STEAM,
   local => '/var/tmp/sock',
   listen => SOMAXCONN,
) or die $!;

my $select = IO::Select -> new( $socket );

while( 1 ){
   foreach( $select -> can_read ){
      if( $_ == $socket ){
         $select -> add( $_ -> accept );
      }
      else {
         # client-anfrage bearbeiten...
      }
   }
}