Select Code to Download

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

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

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