use strict;

use IO::Socket;

my $Socket = IO::Socket::INET->new(
                LocalPort => 8190,
                Type      => SOCK_STREAM,
                Reuse     => 1,
                Listen    => 1 );
my ($client);
while($client = $Socket->accept()){
  ##Do something with socket handle
}
[download]

- Tom