use IO::Socket;
my $listen_socket = IO::Socket::INET->new(LocalPort => 80,
	Listen => 10,
	Proto => 'tcp',
	Reuse => 1);

while (my $connection=$listen_socket->accept)
{
	#do whatever you want.
}