my $d = HTTP::Daemon->new( 'LocalPort' => $port,
			     'ReuseAddr' => 1 );
  print STDERR "DataServer::new: <URL:", $d->url, ">\n";

  my $sel = new IO::Select($d);

##</code><code>##

 print $self "Date: ", time2str(time), $CRLF;