Using a SIGALRM handler seems to not work because it causes accept() to return.

while()
    {
       my $ret=accept($client,$server);
       next if (not defined($ret));
       .
       .
     }
[download]

Instead of using accept inside the parenthesis, use it inside the loop and continue if succeeded. It worked for me.