$inet = IO::Socket::INET->new(
                              Proto => 'tcp',
                              LocalPort => 8080,
                              Listen    => SOMAXCONN,
                              Reuse     => 1
                             );
$socket = $inet->accept();