#!perl

use strict;
use warnings;

use IO::Socket;

my $sock = IO::Socket::INET -> new(LocalAddr => '127.0.0.1', LocalPort => 8080, Listen => 1) || die $!;

while(1)
{
    next unless my $conn = $sock -> accept;
    while($conn -> connected)
    {
        ...
    }
}