#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use Web;

my $port = shift || 8080;
my $socket = IO::Socket::INET->new(
   LocalPort => $port,
   Listen => SOMAXCONN,
   Reuse => 1 ) or die "Can't create listen socket:$!";

while ( my $c = $socket->accept ) {
   handle_connection($c);
   close $c;
}