Thank you for your informed response. This will help me in future debugging as well. By changing the for loop to:

while(1)
{
    accept(Client,Server) || next;
    logmsg "connection on $NAME";
    spawn sub {
        print "Hello there, it's now ", scalar localtime, "\n";
        exec '/usr/games/fortune' or die "can't exec fortune: $!";
    };
    close Client;
}
[download]

The problem no longer appears. Now all it needs are hup and err handlers and it's on its way to being a proper daemon. Thank you so much. Now to figure out how to get bi-directional passing with storable...