my $d= HTTP::Daemon->new( ... ReuseAddr=>1, ... );