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

##</code><code>##

system( 1, $^X, $0, @ARGV );